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oon oO TD wn = 


— care aeaea ee aamateaaaa 


COMMENT!’ * TITLE? B5500/05700 MARK XIV SYSTEM RELEASE * oouguug2 
* FILE ID? SYMBOL/CHECKAL TAPE 10! SYMBULI/FILEGOU * 00000004 @ 
Cal orate Thiet * THIS.  f PROPHiE SURKOUGHS CORPURATION * OOQQUQOQQO06 oo 
* AND IS NOT TO BE REPROOUCEDs USED» OR DISCLOSED. * 00000008 1 
* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE GR UPON " 00000010 1@ 
pees _* WRITTEN AUTHORIZATION UF THE PATENT DIVISION OF  * 00000012 ee Patera ae 3 
* BURRODUGRS CORPURATION»s VETRUIT» MICHIGAN 48232 * 00000014 : 
" * 00000014 |@ 
ee OP YRIGRT CC) 19659 19/1, 1972 BURROUGHS CURPORATIUN * 00000018 8 
* AA759945 AA320206 AK332366 AA393 180 «3 000000149 7 
SYMBOL/CHECKAL APRIL 1972 00000020 — jl®@ 
EXECUTE WITH A COMMON VALUE OF ZERU AND THE PRUGRAM WILL sss 0oOo22. 2 
EXECUTE ALL TEST PROCEDURES UNCE- o0u0u024 10 
Iy MAY BE EXECUTED WITH A COMMON VALUE OF NON ZEKOe IN THIS 00000026 1@ 
_____GASE THE COMMON VALUE SHOULD HAVE THE FORMAT? 0 NOOO RB 12 
COMMON = RRRPPP 00000030 3 
WHERE PPP IS THE PROCEDURE NUMBER TQ BE EXECUTED AND 00000032 4 @ 
RRR IS THE NUMBER CF TIMES THE PROCEOURE HAS TU BE EXECUTED —s—s 00000034 i 
FOR EXAMPLE COMMON = 123094 WILL EXECUTE PROCEULURE 94 FUR 00000036 16 
A CYCLE OF 123 TIMES. THIS FEATURE SKOULO BE USED WHEN 00000034 7 @ 
AN ERROR HAS BEEN CETECTED IN A PRUCEDURE AND THE TECHNICIANS 000000480 pen ae, 1B 
WISH TO “HANG IT IN A LOOP" FOR THE PROCEUURE AND MAYBE 00000042 19 
"SINGLE STEP” THROUGH THE PRUCEDURE. 00000044 of @ 
wm NO OAT A 5_R R == av QOUQO0NG oo one no es 2 
THE CHECKAL PROGRAM IS MADE uP IN MAIN UF PRUCEDURE DECLARATIONS 00000048 23 
WITH APPROPRIATE CALLS UN THEM. Each PROCEDURE CUNCERNS ITSELF WITH 00000050 3 @ 
__CRECKING OUT i STR 00000042. Pee etn ees ate Seat otter 24 
THE WORK AREAS OF THE PROGRAM ARE TwU SINGLE DIMENSION ARKAYS 00000054 ‘ 
CALLED TEMP ANO ANSs THE ELEMENTS UF THE ARRAY TeMP ARE FILLEU WITH 00000056 2 @ 
A EFNERATED 8 4 Ai GA OMPILER AN - MACHINE OR ARIO 0 OOS Bat ee? oe ele |? 
SYNTACTICAL CONSTRUCTS IN ALGOQLe Tht ARRAY ANS 19 TREN FILLED WITH THE 00000060 28 
EXACT BIT CONFIGURATION OF THE ANSWERS EXPECTEL. oovuv07G 1 @ 
A CALL FOR A PROCEDURE TQ BE EXtCUTED aLSQ CAUSES a CALL UW A 00000080 en _ be 
ROUTINE CALLED VERIFY. THIS ROUTINE COMPARES Cyn ELEMENTS OF ARRAY 00000090 31 
TEMP WITH THOSE OF aRRAY aNS, CVN IS A PARAMETER TO PROCEDURE VERIFY 00000100 1 @ 
_TELLING TT HOW MANY ELEMENTS OF THE ARRAYS TO CHECK GOUOIIO pecans SS Ss ais 
IF cVN ELEMENTS Cr THe ARRAY CORRESPOND IN EVERY gIT POSITION AN 00000120 
OUTPUT LINE STATING THIS PROCEDURE IS Ox 1S PRINTED ON THE LINE 0000013C 3@ 
OUTPUT WILL STATE THAT THE PROCEDURE IS Bal. WHETHER THE PROCEDURE 1S 00000150 : 
GK OR BAD THE OUTPUT LINE ALWAYS CUNTAINS A DESChKIPTION OF THE CONSTRUCTOOUO0{OO 4@ 
BEING CHECKED TOGETHER WITH THE PARAGRAPH AyD SUB=P : 39 
THIS CONSTRUCT IN THE EXTENDED ALGOL MANUAL. 00000180 40 
SHOULD THE PROCEDURE PRODUCE A RESULT WHICH IS BAD*s THEN THE VALUES 00000190 a1 
OF ALL ELEMENTS OF THE ARRAYS Ans AND TEMP ARE PRINTED Qute IF THE 00000200 — 43 
GEMENTS HAD COMPARED THaT FacT IS ACKNOWLEDGEO 6 CVNEX) IS TRUE. 00000210 oe A 
IF THE ELEMENT DOES NOT COMPARE THEN IN ADDITION TO PRINTING 00000220 4@ 
CVNCX] 15 FALSE THE EXACT VALUES OF TEMPEX] AND ANS(X) ARE PRINTED 00000230 o 
GIVING VISUAL PROOF CF THE DISCREPENCY. 0G000240 46 
THIS FALSE ANSWER CAN VERY EASILY BE TRACED HACK TO THE CUNSTRUCT 00000250 18 
CREATING ITe SHOULD THE ERROR OCCUR IN SAY PROCEVURE P&1» THE BUOY UF 00000260 ‘8 
THAS PROCEDURE P84 CAN FOUND BY SEARCHING DOWN THE SEQUENCE FIELD 00000270 49 
OF THE LISTING FOR CAROS oF SEQUENCE NO AQBirz@* 5: WITHIN THE BODY OF 00000280 so @ 
THE PROCEDURE, SINCE THE ELEMENTS OF ARRAY TEMP ARE SEQUENTEALLY ... 90000290 51 
FILLEpe THE ParTicuLag CONSTRUCT CORRESPONDING TU cVNCX) caN BE LOCATED.00000300 5 
AT THE END OF PROCEDURE P8i THE FILL STATEMENT CN ARRAY ANS SHOWS 00000310 s1@ 
WHAT EXACTLY WAS EXPECTED FOR aN ANSWER, WITH THIS INFORMaTION IT IS 00000320 
POSSIBLE TO RAPIOLY RUN DOWN A COMPILER FATLURE ANO SOMETIMES A 00000330, °°» be 
HAROWARE FAILURES | a meee 00000340 so @ 
** NOTE ** ALL WRITES TO THE FILE “FF NOK” ARE DONE WITH 00000341 5 
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ee 


"RELEASE™ STATEMENTS. DU N U T PATCH IN ANY WRITE STATEMENTS 00000342 
AS THESE WILL HANG THE SYSTEM 00000343 


ACD ee een nee ICE SA anes 2 Te OQUV0350 
COMMENT THIS IS THE EXTENDED ALGUL NASTER PRUGRAM 3 00000360 
INTEGER COMMON 3 00000361 
DEFINE 00 = COMMON t= COMMON # #00000 0) 0000362 
INTEGER Ile lds ddr dKedKKS 00000363 


INTEGER CVNe PNOS 06000370 


EAN NOK3 = Le el __ re 
ARRAY ANS (195013 00000390 
@ ARRAY TEMP C135013 00000400 
BOOLEAN ARRAY ; ae eS He UO . 
ALPHA ARRAY PROCIDS (03150%0!5), 00000420 
@ SAVE ARRAY FDOUMMY(O22,0:9)3 00000430 
Pe a ata se UT SNR CL We gs a eg foe awe ea Tate OOOOOUE D9 Sie ine a ee 
" PROCEDURE INITIALIZE3 00000450 
@™ BEGIN 00000460 
Me CV E#) WITH OCTO*OCTOrOCTO,UCTO»UCTOsOCTO»POCTO*,OCTOsOCTO»O0UN0N70 ss 
rs UCTOsOC10* OCTOs QETOs OCTO>» O0CTOs OCTOs OCTO*» DCT0» 00000480 
i OCTO»OCTUPFOCTOsSOCTO*OCTOsOCTOrSOCTUrOCTOsOCTUr0QUU04 90 


SH sacar oe en CTO DCTS OLT Oe OCT Os OUTOsOCTOsOCLUsir osc ros 00000S00- <0)... 


UCTOsOCTO*OC TO sOCTOrUC TO sOCTOsOCTOs0C TOsNCT0,00000510 
OCTOsOCTO*OCTOLOCTO»OCTO} 00000520 
10000530. 


BCTU-OCTOOCTO»UC TOsUCTOsbGTOsGCTOsUctDsotTu,oou00cac 
OCTOSUCTUsOCIOsOCTOs+CLT0,UCTGsUCTOsOCTO»sgCT9 ,00UU0550 


Te CT OP OC TOP OC TOs OC TOs UC TOrUC Tore TorO¢Tusoouoosen eer eee Reem ree 


OCTO*#OCTO*OCTOs OCTO» UCT Os UCT Os OCT Os OCTOs GCT0» 00000570 
OCTOsOCTO*OCTOsOCTOsOCTOS 00000580 


FILL ANS CHIWITH OCTOs OCTU*OCTOs OCTO» OCT Os OCTO» UCTO» OCTOr 9610200000890 ead teeie Beate tees 


OCTQsUCTOFOC TOsUCTOs*ULCTOsUCTO*SUC1OsOCTO*UCTU» 00000600 
OCTO»ICTOs OCTOsOCTO*UCTO*OCTOsOCTO*OCTOr0CTUs00000610 


seen ht See Ee QCTOsUCTUSOC TOs IUTOsCLTO,UCTO»UCTUSOCTOs Q,00000620 ©... 


OCTOsOCTOPOCTOSOCTO*SOLTO»OCTO*sOCTOPOCTO*»UCT0s 00000630 


OCTOsOCTOSOCTOLOCTOr+CCTO; 00000640 
oe SS ee OOU0 DESO. 
CVN ©« 0; 00000660 
PNO ©¢ QO 00000670 
EN eh a ah ns a he en OUR AO het, 
PROCEDURE REPORT: : 00000690 
BEGIN : 00000700 


LABEL BOTTOM: 00000710 


INTEGER 13 00000720 

STREAM PROCEOURE HEAD (FIL »NUKVePROCIUSASPHO), 00000736 
VALUE NOKVsPNUZ OW  990ee7gg 

BEGIN Be es 00000750 

LOCAL Tis : Ze 2 00000760 


BEL 3 ee O0000770 
SIeFILS OleLOC T1s OSe1 WOSs Dl eT13 COMMENT OI=14ST wO IN BUFOOQU00780 
FER; ; 00000790 

150s « 8 LIT" ); DleTh, OOU00B800 
1OCDSe¢1 LIT * “)sBSe19 LIT "TEST PROCEDURE NO. "3 00000810 


SI*LOC PNOJ 0S*3 DECI. Dard LIT me "he fore 00000820 


SLePROCIDSAS DSe+6  wOS) |. 00000830 

RELEASE CFIL)3 COMMENT WR TE CFNOK> FWHEAD> CREAT? 00000840 

COMMENT THE FOLLOWING CARDS NO, 491% 492% 4939 494» 4959 W9Oe 00000850 
i dedialiatel ARE BEING INSERTED TO GET ARQUNOD THE PRESENCE BIT BEING ON 00000860 —— 

wetny FOR BOTH RELEASE STATEMENTS IN PROC, HEAD, THIS CAUSES THE 00000870 

wetwe UNPRINTED BUT FILLED: ‘BUFFER “TOBE OVERF 1LLED BEFORE iT ts 00000880 


weew. RELEASED J. _ 00900890 
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SI¢FILs DI*LOC Tis DSei WNSs DI*Tls COMMENT OF = 2157 WD OF BUFF ¢ 00000900 


ose SOON TONG 2 8 ee Ee 


£6 Ge "1/6 Wr anesemiecas mer eerac eee ec 


SyeLOc NCKVs SIeSI+73 00000910 
Soe, TE _SC="1" THEN BEGIN DielT13 DS*1O LIT * mp 00920 
DS¢5 LIT "15 OK"%00000930 
63(DSe¢ 1 LIT * ")342(DSet LIT Me" )3 00000940 
CREASE CF TLDS COMMENT WRITE CPNOKoFMOK)S On000950 
GG to Li EWDS 000uU0960 
DreTl3; DSe10 LIT ™ 0u000970 
LET BAD"Z63(DSet LAT" "Ds 00000980 
4icoSe 1 LIT " ")3 00000990 
RELEASE CFIL)IS GOMMENT WRITE CFNOK»FMBAD): 00001000 
Ma te BS Sadat a te ON oth fi coal Dg RS ohne as the Beaten evenness OU TORO. 
ENO3 00001020 
STREAM PROCEDURE CVTRUE (CFIL»1)3 00001030 
Se ESTP Cal] EON ey SOC er st Oe Oe EO OCT 
BEGIN . -_ 00901050 
LOCAL T413 00001060 
oe Sgterics nieilePas nsed- wads GPeniseUNWeNT paeeURPea FOpEequuiard. 2.0... 
20CDS*1 LIT " "),05¢4 LIT "Cv [" STeLOC 13 DSe2 DECI 00001080 
OSeili LIT "J = TRUE" O3(0Se1 LIT’ "js 2oCuSe1 LIT" ")3 00001090 
COMMENT WRITE CPNGK oFMEVeoToCv(LIQsKELE ASE (FIL) 9 ggudiigg 
END3 00001110 
STREAM PROCEDURE CVFALSE (FIisl)3 ~ 90001120 
BEGIN 00UU01140 
LOCAL T13 00001150 
ee OME Kis ; } 3 j Tops 90001160 
20CDS*1 LIT" ")3 USe4 wer C's SieLoc 1s Dee DECS 00001170 
DS egibL rT") & FALSE™s 63¢HSeL IT" “)320CDSeL IT” "93 00001180 
ee cee BREL EASE 
END; 00001200 
STREAM PROCEDURE INT CFILolIsTleTICsAL,AIO)S 00001210 
VALUE IsTle TID ATs Alas 0001220. 
BEGIN 00001230 _ 
LOCAL TisT23 00001240 
gE ote Yee EP OTe OG ld OSS EON OSS eG no OO UOR BSG 5 igi ers 
35(0S¢, LIT™ ")3 OS*6 LIT"TEMP C3 STeLOC 73 00001260 
OS*2 NECs DSe*6 LIT "J = "SF Sle_oc Tlos T1iebl; ee 


DS) LIT * "3 


SI*LOc TIs DS*? DECJOICDI& sTaeDIsuleT2ssleTaziF $8 THEN 00001300 


DS*6 DEC COMMEN is HIGItS Bul ipl*pi-1309e2 RESETS TUF ELED sii) selves abel 


BEGIN pleTispSei LIT "*"splel2 ENDS DS*2 RESET: | 00001310) ee D. 
S7C0SeL LIT” ")5 00001320 
RELEASE CFIL)sCUMMENT WRITE CENOKs FMTEMPI] >I» TEMPCI{))3 00001330 
SI¢FIL3 iPittuc T13 OSe)1 wOS3 Clells 00001340 
35(DSei LIT.” ")3 O5e6 VANS £3 ST+L0C 1 Co 00001350 
DS#2 DEC#DSe6 LIT") * MG SreLoc alos Tiepls 8 a 00001360 
OS*1 LIT * "F | 2 00001370 _ 
DS*6 DEcs Diedl*1,05*2 RESET; STelic als DS¢7 DECsDIepI=1 s00001 380 
T2¢DIsDleTesSletesIF SB THEN BEGIN DI*TIsDSe1l LIT "="5 QO001390 
DI*T2 END30S*2 RESET3 00001400 
57(DSe1 LIT" ")3 00001410 
COMMENT WRITE CPNOK» FNANS 12 TrANSC 12) 5 RELEASE FIL) 00001420 
ENDS _ oe 00001430. 


STREAM SROC ERNE OCTAL CaUTECASVLETRETSITALTALTAAZALTALIASUTSERT 00001440 
Ti2eTise Tide Tiss TiO9T 179 A129 A22 ASe Ade AS*® AS200001450 
A7PABsAGsAL0OPALL®9AL2ZPAL3S® ALU A152 A169A172500001460 


VALUE Te Tie T2¢T3eT4sTSeT6al7oTGeT Oe T 102 TigeTigeT ize Tide T1i5s 00001470 
Ne ep a la cetera an eae a ance dha 00001480 
ALS A ALORALTE a : ee Ese 00001490 


BiGIN 00001500 
@ LOCAL T § LABEL Lisl2el3rL4; 00001510 
poetics et a OIE OES UC Tf OL 5 a eet ee ee es ee Se OO UE SOO te ne iy Sethe pos 
1 35¢0S¢1 LIT " ")50S"*6 LIT"TEMP C"SSileLOC 13 OS¢2 DEC3 00001530 
@» DS*6 LIT "J = "$ SI*LOC T1sSleSI*+751F SCs"i" THEN BEGIN 00001540 
fd CET HG GO TO LY ENDS DSe1 LIT "eg 
Lit SI*LOC 153 OSel DECSSTeLOC T6s0S"1 CECESTeLUC T73 00001560 
@); DS} DEc#S1«LOC Tenor) DECASI+L Oc T95DSe) DECsSTeLOC 110400001570 
6 Feo S¢ pole T o¢ ¢ + Be ee eee ee eee 
y SIT@LOC T133NSe1 DECSSTeLOC TiasDSed DECsSreLOC T1583 00001590 
@; DS*4 DECSSIeLOC T163 USeL DECZSIeLUC T173DS¢1 DEC; 00001600 
: DS¢2 LIT * x"sSteL.0C T2sSleSl+7s1F SC="1" THEN BEGIN Oo001610 |... 
OSe1 LIT "*"3G60 Tu L2 ENDSOS€) LIT “4";5 00001620 
L2%t ST#LCC T320Se"1 DECSSleLuC TasOSed DECS52°0DS*1 LIT" "23 OQO001L630 
pe NS Oe CS ian a ee ei ene ce Ut Se Sate OOOO VAN 22 no 
COMMENT CONTINUE OCTAL4 : 00001650 
SI¢FIL$ DIleLOC T & OSel WOSs OFeT 3 00001660 
__ SICDSed LIT " "250S"6 LIT"ANS CZSleLoc Ls DSe2 pecs 000014670 | 
DS*6 LIT "J = " FSLeLOC ALSSTeSI+737F SCHL" THEN BEGIN 00001680 
DS*4 LIT “e"sG0 TO L3 ENDSOSe1 LIT “en; 00001690 
< Sle AS; OSet DECs Ste _ OC 5 ;STetl ; 
DS¢1 DECSST+LOC ASsDS*1 DECSSIe_L oc AvZ0Se1 DECESTe_oc Aai9;00001710 
DS#_ DECSST+¢LOC ALisDSey DECSSTeLUC Ay2s0Se1 DECS 00001720 
_ SE*LOC ALSsOSe1 DECESIOLOC Al4soSe!1 OeCsSTepoc aAl5s «00001730 
2 DS*1 DEC3SIeLOC AlOsD0S*1 DECSSI*LUC AL73NS*"1 DEC; 000U1740 
@ » DS*2 LIT™ x"sZSTeLUC AZSSTeSIT+751F ScB"{" THEN BEGIN 00¥01750 
a SHE LIT "="5G0 TO L4 ENDSDSe] LIT M43 Q0U01760 = =——esseseae 


“L4t SpeLGc a3;0Se1 DECHSLeLOC auspSei DECsS2CDSe1 LIT * "js 00001770 


ee ee TEMPCI].CI23)+TEMPET) oLOt3)>TEMPLII,C9%3]* 00001880 | 
TEMPC1J¢Cl2¢3)+TEMPCIJeC1583)e TEMPE I )eL16#3)200001890 
TEMP(1)4(2183)>TEMPC 11.2433) TEMP(I]«£27831»00001900 
TEMPCIJe0308 3) oTEMPLII,03383) o TEMPE IL 1.036933,00001910 
TEMP(I)6l 3983) + TEMP(IJe(42t3)>TEMP(I Je [45% 3]»00001920 
ANS CI] eCUt1]+AnS ClIoLett J» anS C1I].C3%3)» 00001930 


ANSEL CISISIOANSEII C1LSt3)saNSC LI) .f2it3is 00001950 
ANS Cl] eC24t3)sANSCITJel27232,ANSCII.030%3)» 00001960 


ANS CI) C4223) +ANSC 1) ¢064523)) 00001980 
END} 00001990 
BOTTOMS INITIALIZE 00002000 
ENDS 00002010 
PROCEQURE VERIFY; 00002020 
BEGIN _ 00002030 
INTEGER 113 00002040 
LABEL Lis 900002050 
FOR +1 STEP UNTIL cVN DC 0900 
i IF TEMP CILJ= ANS CIS) THEN CV CILJ€TRUE ELSE cVEIIJ+FALSEs 00002070 
a FOR I1¢1 STEP 2 UNTIL CVN DO =’ 00002080 
R ‘ SE: BEGIN NOKeE A 240 TO N 00002090 


y a 5 ° E s. = KS x: 


ANS CLI] slOSFJANS CLIeC9tSIoANS CII.C12%3)» OOVGI940O 


= ANS CLI.C3393)+ANSCI) + C3623IeANSCII,(39833e 00001970 _ : 


ones 


& 6 RELEASE (FIL) 00001780 
Sp? en NOE trols ce at oe i nea Sel tad wt OEP OO a ctr cn aen signed az, 
a 8 HEAD CFNOKsNOKsPROCIDSCPNO»OJ]>+PNG)SCIMMENT Lol Twa LINES PRINTEDS 00001800 
= IF NOK THEN GO TO BOTTOM; 00001810 
= _ FOR Tet STEP 2 UNTIL CVN DO) BO 
IF CVCIJ] TREN CVTRUECFNOKe1) ELSE 00001830 
BEGIN CVFALSECFNOGKel 3 00001840 
Sat a te an Pan Lk a. ne ie as te erm ee ah Sen oe e OOO TES O., 
CCTAL CFNOKslTs TEMPOLIJ.CLilj>TemPlI)eCetlds 00UU1870 


NOK*TRUES 00002100 
e| Lit REPORT 00002310 @ 
dase ae le sec NOS ce be Sct et a ey Sree ep tae A MIU PO nc cl, Gc. aietiwitpae eSesekeceeed Re eae ee! 
1 BEGIN 00002130 i 
@): STREAM PROCEDURE OCTFILLCFPARRAY)3 00002140 1@ 
3 BPGIN: 2 = ns Se _ 2180 3 
‘ LOCAL T13 00002160 ‘ 
@ |: SI©FPARRAYS 00002170 |@ 
rs LOC TU US ee 1 WOODS OC ew Tas See ee 2 O00N S180 8 
l7 OS"48 LIT 160.0 ALGOL MASTER TEST PROCEDURES "3 - 090002190 7 
@ |: DI€LOC Tis OS * 1 WOS# Ol * TB 00002200 |@ 
9 DS¢48 LIT "204.4 COMMENT Siete 3 00002210 9 
‘0 DIeLoc T15 DS « 1 WOSt DI Tis 00002220 10 
er pSe¢48 LIT "265 IUENTIFIERS "5 00002230 i@ 
2 sah nt oe oie ROLOG: TA FS aie OW O ST «Oe Ts SOF oh et Et OOO PROUT oh (A tat, ceo 2 
OSe48 LIT "2.6 NUMBERS "5 000602250 ; 7 
@ | DI*LOC Tis DS * 1 wOSS DI © 133 00002260 @ 
5 0 G6G6 UIT 8947 STRINGS gs ee OP OOOO PIO os oe ta es ee es 
6 DieLoc T13 US ¢ 1 WOSs DL © Th 00002280 16 
er DS¢48 LIT "3e1 VARTABLES : "5 00002290 @ 
: LO TA US © 1] WDSS ODT ee Tas Seah 611 961 N01 © a PP arte ee ter rarer re ee eae rn 
is 0S¢48 LIT "3.2 PARTIAL WORD DESIGNATORS "3 00002310 19 
or DI\LOC Tis DS « 1-WDSs DI « T13 00002320 24 @ 
ee DS*48 LIT "393 FUNCTION DESIGNATORS es "3 op002330....—s—i‘CéiéO ae fs 
P DIe*LOc Tis DS ¢ 1 WOSs Ol ¢ Ths 00002340 2 
@: 0S¢48 LIT "33,8 STANDARD FUNCTIONS "3 00002350 ms 
: Soe ps See ae OC OOPG60 oe ct terse Rn es ee eh es ee 24 
P “pSe48 LIT. raed. 5 TRANSFER FONCTEtAS "3 00002370 2 
@ | DIeLOc Tis. DS + 1 WOSS DI « TL 00002380 2 @ 
s F _DS448 LIT "306e3e2GENERAL ARITHMETIC EXPRESSIGNS? IF CLAUSEMs 00002390, 
Ba ey DI*LOC T1353 US ¢ 1 wOSs GI €« 143 000G2400 a 
'@- DSe48 LIT "3e4edeLARITHMETIC UPERATOR® + "5 00002410 2 @ 
a. eC Tis 9S ¢€ 1 WOSs OI ¢ Ta MOOG 2H 20 dein coterie Sabet a eh ene wat nln Lint Lopes es 20 
& OSe48 LIT "3e4e4,1ARITHMETIC OPERATOR? = or 00002430 31 
=@; DI*LOC T1s OS *¢ 1 WOSS DI «¢ T13 00002440 | @ 
‘ DSe¢48 LIT "3ebe4e ARITHMETIC OPERATURe x "3 when OOUD CABO. ois ete 
DI*LOC Tis DS « 1 wOSs Di Ti 00002460 M 
& DSe48 LIT "3e4e4e1ARITHMETIC GPERATORe / "3 00002470 31@ 
eee _ Ol*, OC Tis 0S + 3 WOSs Ol + Tis fot OOO eG on Nice is soon ch teeta ada et oI le ot Ot, 36 
DSe46 LIT "3.4e4,1ARITHMETIC OPERATOR» DIV or 00002490 | 37 
@. DIeLOc T15 0S « 1 WOSs Dl © Ti 00002500 | 34®@ 
; OSe48 LIT "taeda LARITHMETIC OPERATOR» MOD ______mg _____ ggoagsiq_ poeta 39 
! Ol*LOC Tis OS ¢ 1 WOSS DI ¢ T13 00002520 ‘9 
@ DSe48 LIT "364e4e1 ARITHMETIC GPERATORS * "3 00002530 «|@ 
Ore Oc Tis OS « 4 wOSs ODI «© 143 00002540 ote bal 
DS*46 LIT "3e4e4.2ARTTHMETIC EXPRESSION TYPES | Ts 90002550 a 
@ - Dle*LOC Tis) OS * 4 WOSS OL + T13 : 00002560 : 4@ 
DS*48 LIT "3e4s5 PRECEDENCE OF ARITHMETIC OPERATORS "3 00002570 =f As 
é Ole*Lac Tis OS © 1 WOse DI © T13 00002580 : 
@ pSe48 LIT "344,6 NUMERICAL LIMITATIONS "5 00002590 oh 
DI*LOC Tis DS « 1 WOSs DI ¢ 113 00002600 os 
DS¢48 LIT "355.3.2GENERAL BOOLEAN EXPs IF CLAUSE ms 00002610 , c 
@} DIeLOc T1s OS « 1 WOSS DI * Tas oo 00002620 | 1@ 
DS448 LIT "35,9 eIRELATIONAL OPERATOR» <_ "3 00002630 | Goes : _fs 
DI*LOC Tis. DS * 1 WOSS Dl ¢ T13 00002640 5 
@ | 05¢48 LIT "3.5,89,1RELATIONAL OPERATORSS "3 00002650 sy @ 
DI*LOC Tis OS © 1 WOSs OT ¢ Ta3 00002660 - 

_ 0S¢48 LIT "3+65e5e1RELATIONAL GPERATORp® OF 00002670 | ss 
Or | DI\L@C Tis DS # 1 WOSE DI-e T13 | 00002680 a +4 @ 
ey he OS¢48 LIT "Fe Se Set RELATIONAL OPERATOR »2 "3 90902690 gas : 1 5 
@ @® °@® 


DI*LOC Tis DS « 1 WOSs DI © Tas 00002700 
DS#48 LIT "305e5e1RELATIONAL OPERATON»> "3 00002710 & 
Se tcatie, Gab ee ssid gt COA A PE es Ae NSS Ye I Sh es OU A chit ee 
OS¢48 LIT "365e3e1RELATIONAL GPERATORgs "3 00002730 
DI*L@C Tis OS ¢ 1 WOSS DI © Ths 00002740 
DS#48 LIT "3e5e5e2L0GICAL OPERATOR NOT OA TSQ 
DI*LOC Tis DS «1 WUSs CI ¢ T13 00002760 
DS*4B LIT %395e5e2L0GICAL UPERAIUR» AND "3 00002770 
vane © : ; } 5 + Oe aS ie eee 
DS¢48 LIT %3e5e5e2LO0GICAL GPERATUR» OR "yO 00002790 
DIeLOC Tis OS « 1 WOSs DI « T13 00002800 
_pSe48 LIT "9e5e5e2L0GICAL GPERATUR» IMP GC O02 BIO 
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@ - ENDS 00V60220 
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BEGIN 00070010 
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@» NOFORMALPARAMETERS€13 00070050 
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REAL A 3} 00070160 
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; END3 ae 00070190 
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BEGIN 00070220 
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TEMPE5) « eA IHC) x Lek + 5623 TEMPE?) + 63 00070320 1@ 
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TEMP(8) © REAL (TEMP(3)23)3 00070340 ‘ 
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OCT6s OCTOs OCT353 00070370 7 
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INTEGER H3 00090030 "3 
BOOLEAN AsBsD3 00090040 @ 
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REAL XX» YY3 00090070 |@ 
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BOOLEAN PROCEDURE CHECKREALC FeG)s 0900 a) 
BOOLEAN Fs G3 00090120 1@ 
BEGIN 00090130 23 
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BEGIN 00090180 1@ 
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TEMPLSIENTIER(" 249999999993 00090260 | en 3¢ 
TEMPCOJ©ENTIERCX)3 00090270 7 
TEMP? ICENTIERC@2Z)3 00090280 a ®@ 
__ TEMPEOJCENTIERCIF A THEN CHECKTRANSFER( 5. 7p*2s1) ELSE 00090290 . 39 
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C ¢ REALC IF A THEN A OR B ELSE A AND B)S TEMPLISJ*ENTIER(C)S 00090430 | @ 
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INTEGER XeY 3} Oalouado 
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GENARITKe IF A THEN X/Y ELSE x MOD Y3 00100090 
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BOOLEAN Aj 00100130 
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ENDS 00100160 
a cuieest ; OQ100170 
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TEMPC3]¢ IF & THEN 7/75 ELSE (GENARITHC7*5e TRUE) + 00100190 
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TEMP(4J© IF A THEN "ABC”™ + "ABC™ ELSE Xel4721)43 5 00100210 
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TEMP(6J)* [F A AND @ THEN ="A" ELSE = "ARCH = "CDENG 00100230 
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TEMPC1O0)* IF B THEN X ELSE IF B THEN x ELSE IF B THEN X ELSE Y;00100280 
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. VERIFY 00110160 e 
ENDS 00110170 7 
__PROCEDURE Py2s COMMENT THE ARITHMETIC OPERATOR ces = got eno00 ~ se lis ee aah Naar sae ate creas Rea gs Fae nc ce eee EG 
BEGIN 00120010 ie 
REAL AsB3 00120020 f 
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TEMPEL1i Je 4=2 5 TEMP C2) ¢« 293 5 TEMP £3) © 4ee-1;3 00120040 ar 
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TEMPL14)* © TEMP [éJ]= TEMPL7]3 00120100 2e 
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___ BEGIN Neath ee ade pa Sa es eer ih Sn ee OO120190 on eo ie tees eeceue — 30 
INTEGER PROCEDURE CALC (OSURD)* COMMENT THIS PROCEDURE useD TO FORM oot20130 31 
FUNCTIONS 00120140 52 
__INTEGER DSuBDe Pa oad 7 _ 99120150 ON ne seni ier ee ee 33 
BEGIN  CALC* DSUBO END$ 00120160 34 
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VERIFY 00120260 | ; «@ 
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4 TEMPC2]*1OxI23 00130180 
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OcT122006» OcTO» acT2i; 00130630 
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PNOe?33 a wat ae: 00130650 
VERIFY 00130660 
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INTEGER PROCEDURE caLc2 (¢ DDIVD)4 COMMENT THE PROCEDURE USED TO FURM 00150040 a 
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TEMPEA5]¢0eC42t6I01V 3 DIV A; : 00150480 | i OS | 4®@ 
TEMPO 16) ¢ 15 -O01V 25 O1V B + TEMPD17) « B OTV CALCZ (25) OLV As00150190 - 49 
EMPC16J* CaLcZ¢ 1)DIV 1 DIV as TEMPC19]© "ABYDIV C.Cd5i3l5 00150200 " 
TEMPL20}© C,C4256]0IV 5 DIVMANS | 00150210 | 1 @ 
LiL ANSC#) WITH Ocf36» OCTi» OCTi» OcT10i» OCTI» 00150220 r 
06T2000000000000036» OCT2000000000000001» O6T200000000000000;1» 00150230 4s 
OCT2000000000000101+ OcT3r OCT12» OcTOs OCTOs OQctOs OcTOs OcTOs 00150240 : ; @ 
OCTOse OCTOs OCT2L -OCTO . me eee Bes 00150250 ; us ee 51 
CVN © 203 00150260 5 
PNO « 153 00150270 s1@ 
VERIFY 00150280, | 
ENDS — ; Loe Oe oo 00150290 ee ota. | Fs 
PROCEDURE P16} COMMENT ARETH OPERATOR MOD ~ 3+ M44 1300160000 5, a Sade {@ 
REGIN hse OR | ee 00160010 ge Ey MRE ae age, Bay 5 
® @® 


Data Documents/Iinc. 


2 é a y 


oo ND no - wn = \ 


= 
i=] 


= 


SSS FE SR SERRE ES 


TS 


ae 


INTEGER [0% [19 I29 I3s9 4» 153 00160020 
REAL ROsR1sR2eR3rR4eR53 00160030 
LN : £(xX*V)3 — OOL6004O 
INTEGER XsY3 00160050 
BEGIN 7 00160060 
RE, SS, a haat ee wt OOOO LO te oes a 
END; 00160080 
10¢O0; [l¢13 [223 [3€175 I4e=23 [5e=B3 00160090 
Pe ’ 
TEMPC2}¢13 MOD 2s 00160110 
TEMPC3)*+3 MON 113 00160120 
__ TEM t a. 2s 00160430 ©. 
TEMPCSJ¢I5 MOD 143 00160140 
TEMP [6]¢13 MOD 743 00160150 
oo  ROOOS Rlels R202,23 RICB.95 R4O23 00160160 
TEMPE7J¢RO MOD R13 00160170 
TEMPfBJ*RZ MOD. RES 00160180 
_ TEMPEOJER3 MOD Rs Ber asa sae ts he POO Oh oie Sent 
TEMPC10]¢€I15 MOD Re; 00160200 
TEMPCA1]*¢15 MOLD (C1i + 12 + R2)3 00160210 
SS Vo Os Rede ee EN Da Pe a ea ot So co OOO OD OO ear 
TEMP(13)¢37 MOD CIF R2 = 2.2 THEN 6 ELSE 3)3 001600230 
TEMP (141448,5 MOD 2¢393)3 00160240 
_______._ TEMPLES de® 13,04296) MOD 12.04583)3 00160 Snes late a toe eae 
COMMENT ***%e% VALUES IN THE ANS ARRAY WERE MODIFIED TO ACCOUNT 00160260 
we wee FOR THE DEVIATION OF THE COWVERT ROUTINE 00160270 


waNwae  TEMP( 8) = 1150631463146340 le a a rae OO GOO 6 it neh ges nce ee 
ANS(8) = 1150631463146314 00160290 
00160300 
TEMP(9} = 1157146314631500 | 00160310 
ANSO9) «== 11571460314631463 00160320 
00160330 
TEMPr10J= 344 631463147 340 
ANSE10) = 3141314631463146 00160350 
00160360 — 
shu EMEC ie SEARO ST ROS OO es a ig OO TC0 0 
ANSE 41) = 3142631403146314 > 00160380 
FILL ANSC#) WITH OCTO» GCT1* GcTO» UCTO* UCTOs 00160390 
CCTl» UCTOs UCT1150631463146540, Qg160400 
00671157146314631500s 0¢673141314631463147> 00160440 
OCTIL4Z631463146315,0CT1 »OCTI,OCTLIS4000000000000,0CT1s 00160420 
VNO153: = | 00160430) 
PNOe163 00160440 
VERIFY3 00160450 
ND3 emerncas _ 
PROCEDURE P47} CGMMENT ARITHMETIC OPERATOR * Ek 7 NOV 633 00170000 
BEGIN : | : 00170010 
INTEGER Je K3 oo170020 = 
REAL YoZows 00170030 
ARRAY xl113]5 00170040 
INTEGER PROCEDURE SUM (JeK)3 00170050, 
—. INTEGER JK; oe 00170060 
. BEGIN ms 00170070 
a SuMe J4k 00170080 
END3 00170090 
We 10,0x23 00170100 
+2 00170 LQ Ue ea 
Ke ay 00170320 
Y * 40,03 - 00170130 
L@..0 2x1: OO1701a0 


Data Documents/inc. 


e@ 
sacs. 


1 
2 
3 
4 
5 
6 
7 
8 
:) 


TEMPC103¢8 mOC Ys TEMPCI1J© (€=8)M00 1.65 TEMP £C123¢7,5 mOQD(=3) 
wee -YEMP C1311 ,.5"C00 0,73 Din i an es ey EA 
FILL ANSC*¥)] WITH OCT200000000000 2437, OCT1121026365605076,5 


067111206267534 32205 007T1421561217270244> 


ara AD ee ene ae 0€71132554631463146, 0C0T1141600000000000, 00180090 


OCT1143723364675157 >» 
00T1151463146344632»5 


UOT11411146314603447>2 
OctTi0s 


0CT34414631463146030» 0CT1441400000000000» 00180420 — 


——-TEMPLM)+2 7x3 x304x4) TEMPLES I]2.7x34304xas 0030. 
TEMPLO]¢7/43 TEMp(7Je9/2,35TEMpPLB1e2,3/7esTEMPL9 J e27,3x2/27, 301 500180040 


XCLJexc2Ie xXE3]e 3,03 00170150 
TEMPLile 242; 00170160 of 
sch Dae oth alas TRIM EY ION a ga a rt cr I PD ln ee ole np eae ne cece casa aac ened «teen Soak oe 
TEMP(3]© (Usd) *J3 : 00170180 7! 
TEMPLGJ© O*K3 i 00170190 :/@ 
TEMPS One 00170200. 3 
TEMPLO]* Y*O3 00170210 ‘ 
TEMPC7J# Z*("0)3 00170220 ‘|@ 
est Ss ete cogs) EMP CBO ONY DR Feet 0.0 ole a ee ont cee OE Die Oe vl oy ot co Peta 6 
TEMPCO]© (¥ey)#2,53 00170240 : 7 
TEMPL10]¢ Ye2,05 | 00170250 |@ 
____TEMPEAg)© (Kod) ec ued, 393 ee oo170260 i ( sss—s— 9 
TEMPC12]© (K/Y)*0.03 0U17027C 10 
TEMPCL3]* (91.5) *(0)3 00170280 @ 
sctieie deh TEMPE GOON RY Ue Ugo aorta sin, Mater Sith Es teed a dt ae Se 00170290 eee ” 
 TEMPCiS}© xCil* xl2i3 00170300 13 
TEMPL16]#X£3] * SUM(U»K)3 00170310 @ 
TEMPE U7 Ie xCedey CA781)s ere a erences #100 9 AC 7-2 ¢ re 5 
TEMPCiBle 1*"Q00000";5 00170330 bi 
COMMENT THE FOLLOWING ANSWERS WERE MODIFIED 7O OBTAIN A CLEAN LISTING 00170340 1@ 
wetee CONSTRUCT ANS SHOULD BE CANS TS OBO PS anaes ae 18 
ieiac (4=2) #(2"1,5) ocT 10° ocT10, 00000000002 00170360 ig 
tae 343 OCT 33 0¢733,00000000004 300170370 of @ 
FILL ANSfwy] WITH OCT4» OCT2U» OCTIO10000000000002» ocTOs  oo170380 ey 
OCT2000000000000000» OCT1» OCTis 00170390 2 
OCT101CCO0000000002» UCTO» UCT144*» OCT113100000V000002» 00170400 @ 
ne OETA» OCTI» 0671213215961353 4715 CCTIL333Q0000000004  ool70410.. sss eenertoree £55 24 
OcT1331» OCTi» OCTIL3 00170420 2 
CVNe 185 00170430 ro @ 
a PNOe] 17h pe OS os a hat le be ee og ee re 2 
VERIFY 00170450 
ENDS 00170460 | 
__._. PROCEDURE PI8sCOMMENT ARITHMETIC EXPRESSTOnNS WITH MIXED TYPES; = = 00180000 
BEGIN | 00180010 
TEMPCAJ eC 957x233 Tempcede 27413,27x33 TEMPC3]¢ 27x 13,27x3;3 00160020 


* 00180050 
_ 00180060 2 


00180070 
00180080 


00180400 
00180110 


00T11506314634463143 00180130 
CVNOL33 ore 00180140 
StI ONS i i ae et at OO LOOT SO. oe cs, P 
VERIFY 00180160 
END3 00180170 
PROCEDURE P193 COMMENT PRECEDENCE UF ARITHMETIC OPERATORS 3.4.53 00190000 
BEGIN 00190010 
INTEGER TLeleola slo oar lO eI Xe li 00190020 
_ REAL ROsRisReeR3eRba Roe R6s 7 Q0190030  —___ — 
ALPHA AlsA23 00190040 
INTEGER PROCEDURE X(GsHs IX)3 00190050 
oe VALUE GsHeIX3 004190060 54 
INTEGER Gots IX? 00190070 ss 
BEGIN 00190080 so @ 
weg we shee He6s | 00190090 / 5 
@ °® 


1Xe33 00140100 
X¢G3 00190110 
ENDS wean ae Sh st ae ted te 3 Manet ces 00190120 
INTEGER PROCEDURE YCuelY)3 00190130 
VALUE Js IY3 00190140 
INTEGER Jeli ees OOF 90150 oo ea 
BEGIN 00190160 
YeJelYe23 00190170 
picks, BoP NO ice 2 a Sue et ae 9 0 ee ed Reo 
REAL PROCEDURE Z(K»eLaMeROsRleR2eR3 )3 00190190 
VALUE KalLeMeROeR1sR20R 33 00190200 
ae Ss ANTEC KOs eae Eon eo en esse OOS FO ee opens 
REAL LeMeROs hl» ReoRai : : 00190220 
BEGIN 00190230 
spc ac tasting < nd RN a 8 oe tg ed ee eet Sc lee cat OO TWOP UC eis, co fn Saas 
RieK"L 3 00190250 
R2eK/L3 00190260 
hte tet tA MB locas a Me dat ah i ee ee hn Se et a ee HO POO A pee 2 eestor Feet 
ZeM3 00190280 
ENDS 00140290 
Titel 12/25 13¢33 p4e4s T5e55 10410; [X9Gs Tr¥eOzs 00190300 Ree Le 
TEMPL1J*11 # Y2x13 * 14 =C€110 DIV 15)3 00190310 
TEMPC2]¢~T1 + T2xy3 * (74 * 110 DIV 15)3 00190320: 
aaa err | ¢ + T2x(T3 » T4 = T10 Div I5)5 GORI... 
TEMPC4)e741 + (C12 x 13 * 14 *™ 710 DIV [5)3 00190340 
@ : TEMPCS)*C(C E41 4+ 12 x 13 * 74 * 110 OLIV 1593 00190350 
6  REMPTOJ¢ (11 6 [2 eT ee PG 10) BTV 8 i 0190960 i 
ae | TEMPC7)® CIis]2xy3"3)"110 LIV 153 00190370 
sO; TEMPCAIeCT1 + 12x13) * 14 s 110 DIV [53 00190380 | 
SF LEMP 3 903290 2 
a TEMPCioleT1 + 12x13 * a - 110 DIv 153 00190400 
s@r TeMPtit]eli + 12 x 13 * (110 > 14) Div 15; 00190410 
4 + eres 3 reer Sass aie ane 
: TEMPELB}e110 x 11 +12 “OD XCIls [2o 13)KIYeY¥CTi#12)#11"12 HIV 00190430 
@ | I5"114133 00190440 
ie ee nee LEMP AMD OC TIOKI1¢T2 MOD XC ia» teeta KY CT4e 15) eToetid NIV = 00190450. —“‘“‘i‘it 
15“I11+13)3 00190460 
@ TEMPCASJe7T1OxT14+y2 MND XCIds 12-13) *YC L415) * 14" 710 QIV 00190476 
aie Sisssgocd Enc. "11+13)3 po eae DOOR Os. Jcore fe ToS 
RO#OS R1e¢Os R2€05 R3403 R4OM13 R5O54G7558198B875 RO|WZS ADe"A™S 00190490 
@ TEMPC16]¢13413x123 00190500 
TEMPE U7] ee] 3xypae oe aK 
TEMP(16J¢13x(14"]2)3 00190520 
rd] TEMPLAQI+# 14/1241 3x123 00190530 
! CT EMPE20]¢15 MOV }2 + [33 00190 cee aaa eee 
! TEMPC21iJ¢13 O1V r2 MOD IL23 00190550 
@ | TEMPC22]¢19"R6XRGS 00190560 
_._.._ TEMPL23 RGF 15 *REA9 M 43 _ 00190570 
TEMP[24]+(RO* PCRLPARVERLUPL ROLE ETLEPSPATEST OS 00190580 
 ] TEMPC25]¢224(1F [120 THEN [exR5 ELSE AZ)3 00190590 
; ALO" AA" 00190600, 
TEMPE 26} AA"+RS MOD 741s 00190610 
@r TEMPC 27] @¢AL4+AS DIV €744)"687194767333 00190620 
TEMP( 28] eZCie2eROe Ris RoeR3eRGHROS 00190630 
TEMPL291¢2(653eR1eR2eK39R49R5)XR2¢RI-ROXRIZ 00190640 
@ | TEMP (3026 (4x8"3445542.5)/93 00190650 
54 COMMENT ANSWERS AND OUTPUTS 00190660 
FILL ANSE*9 WITH OcT241» OCT23, OcT237> 00190670 
@ OCT241» OCT24i» OCT3I60° = 00190680. 
OCT6Ss OCTA5S37» OCTI61» 00190690 
@ 


Data Documents/inc. 


oorx om FF WH = 


3 


= 
= 


= 
iS] 


2 


sz 


OCT241s OCTA44, ACT24el» 


00190700 


Octia» OCT1i2» OCTI1>» 00190710 e 
eee care ss See i OO 

OCT1I0O*» OCTM» OCTi» 00190730 

OCTi» OCT6, OCTOs — 00190740 :/@ 
OC THRs OCT2122, OCT2123» ss __ 00190750, 3 
OCTO» OCTO, OCT4? 00190760 4 

CVNe303 00190770 |@ 
ee eee _PNOC{OS a eee RE he re rE See ee OO LG OT AQ. en & 
VERIFY 00190790 | | 7 

ENDS . 00190800 |@ 
PROCEDURE P2is COMMENT BOOLEAN EXPRESSION USING IF CLAUSE 3% oo2t0000..——s—i‘iété‘t;t;tw 9 
BEGIN 00210010 "9 

BOOLEAN AsBsCeDeEs 00210020 |@ 
Fick adie ste TT GE ME: ; | ei nO eo ee OOS LOGIE eek ese PR ey 
BOOLEAN PROCEDURE BOOL (BLSUBBL»AsB)3 00210040 13 

BOOLEAN BLSUBBL»sAsa3 00210050 s@ 
BABA egies ackan ‘ SUBBL E pa seh ODE O06 Oster titel bate ate sitasie tel ntibdieeee me dee oe! ‘5 
BOOLEAN PROCEDURE SECBQUL(BSUBEL»A,B)3 00210070 "6 

BOOLEAN BSUBBL#AsB3 00210080 71% 
oo Sees Theses ol BEGIN SECBOCL..©A OR NOT ESB ENB a OSL UG ioc ecsh ies ch eee eectenee a cee Soest is 
B © FALSES Ae TRUES He 143 ve 143 Ce FALSE; De FALSE} Ee TRUE 00210100 a 

ACIF HeJ THEN TRUE ELSE FALSES TEMPLLJ*REALCA,C47419)3 00210110 r4@ 
Ae If TRUE THEN a ELSE 83 TEMPC2J¢ REALCAsE4731))23 ACTRUEZ OO TOT Oc oe oe Geen ih hem Ge Se a 
AtCIF A THEN BOULCBsAeB8) ELSE IF B THEN C ELSE D3 00210130 : 

TEMP(3]¢ REALCA,C4791))5 Henes3 00210140 23@ 
een On 8 >He SE PLAle REALCA,L47$1))3 ss 210150. ene ee eee 24 
Ae IF H>J THEN CIF J2H THEN A ELSE 8) ELSE IF C THEN A ELSE 03 00210160 E 

TEMP(5)* REALCAS(47211)3 00210170 ; | @ 
_he IF_A THEN TRUE FOV False ELSk TRUES TEMPL L CED 7. keene a eee Te 2 
At IF A THEN H® 9 ELSE BS TEMPE?) © REAL (Cael 4721))35 00210190 ea 

ACIF HzJ THEN BOOL(B,A.8) EGY SECBOOL(BrA,B) ELSE C3 00210200 24@ 
ee Sa ct IA) ee LE RS) et ee a ee Os es ea ee re a ot is 
Ae IF 8 THEN CH4y)-s CHE) ELSE IF Hey > Hey THEN A ELSE 83 00210220 1 

| TEMPCOJOREALCAsLA7B11)5 00210230 |@ 

_.___ Aw IF _A THEN CIF Hey THEN C ELSE A) EQV CH>y) ELSE Bs = = 00210240 | me, aay en eeeppniias, ete nether Meira tA Sel ae a 

TEMP(10]¢ REAL(A,(4721])3 00210250 34 

Ae IF A THEN C OR D ELSE Es TEMPLILJ© REALCAeL4781))3 00210260 31@ 
AEP BO EQy A THEN BOOLCB,A,8) OR SECRGCL(8,A,B) ELSE CS ss one2d0e70.. 3 
TEMPC12]¢ REALCA,C47#13)3 00210280 | 27 

At IF B THEN H > J OR J > ELSE IF C THEN O ELSE AS 00210290 3@ 
TEMPEL3]© REALCA,£47211)3 00210300 _ 33 
At IF A THEN (CIF A OR B THEN C ELSE A) OR CA AND B)) ELSE E 3 00210310 40 

TEMPCL4]¢ REALCA,C47811)3 00210320 «|@ 
ACIF B THEN BOOL(B,As8) AND SECBOOL(B»AsB) ELSE A AND B} 00210330 _ e 
TEMPCI5]¢REALCA,L4FI1)3 00210340 j ; F 

A+ IF KH # J THEN CIF A OR B THEN C ELSE A). AND: (BOR D) ELSE £300210350 . 4®@ 
TEMPO VeREALCA,C4781393 AFTRUES 00210360 allt 
Ae IF A OR B THEN NOT B ELSE E3 TEMPC1I7 Je REALTAs C iT) 00210370 6 

Ae TRUE 00210380 J 
At IF A THEN A EQV 8 AND NGI C ELSE IF © THEN A ELSE C 3 LC eee : 
TEMPC1BJ© REALCA,C47!1)93 00210400 49 

Ae IF A THEN HelaS33] > Jel4216) ELSE. eb, 00210410 a 7 sd @ 
TEMPCLOIOREALCASL47TILIDE pee 00210420 51 
Ae IF A THEN CIF Hel4583) > (deldote]) ~ He TISTITD HEN C 00210430 : 

ELSE A ) OR NOT CA OR B) ELSE AS TEMPCZ0]©REALCAeL4731))3 00210440 si @ 
FILL ANS(C*) WITH OcTis OcTis OcTis OcTi» AcTOs OcTis» 00210450 i 
OCTO, OCT1» OCT1s OCT» OCTOs OCTi» OCTi» 00210460 . ) 55 

OCTOs OCTOs OCTO+ OCTLs OCT0s CTI» GCTI 00210470 | sq @ 
CVN « 20): 00240480. | Po ae ee 5 

@ °® 


Data Documents/inc. 


rr oe ee ee ee ee ee ee | 
2 23 


| PNO «¢ 213 00210490 
VERIFY 00210500 
pete ee LENDS oot ae a at ee eh ig et DOL 1 Oe a5 to. 22 
PROCEOURE P22} COMMENT RELATIONAL UPERATOR < 36 5.2015300220000 
BEGIN 00220010 
INTEGER LO+TLeINDeT2+INZsIMAXSIMING sign 
INTEGER PROCEQURE x(K)3 00220030 
INTEGER K> 00220040 
GI at © eaeaea anno em eet TO 
XeK+2} 00220060 
ENDS 00220070 
an wa PREC BC a a ee OOD ORO oar tt 
REAL L3 00220090 
+ BEGIN 00220100 
Saar ce a i et OOO IT 
: ENO3 00220420 
4 TO*O$ [leis JNle"413 [2e23 [N2e"2; 00220130 
- eerie Sin —-IMAX¢5497558138873 IMINe@ 5497558138875 BO 
ne TEMPCLJ©IF 0,0 < 1.0 THEN 1 ELSE 03 00220150 
7 TEMPC2)¢IF 91.0 < IO THEN 1 ELSE 03 00220160 
bs pe EME eT PAO O 8 oe XC) TREN FS 0 ge OBO 
TEMPC4J© IF 4,314063 < 10.4721) TREN 1 ELSE 03 002204180 
Po TEMPCSJ@IF 1, 75646 < " " THEN 1 ELSE 03 00220190 
: TL EMPLOVOTE 94,75@990 <1] THEN 1 ELSE OF tee OO AAO B00. ee. 
; TEMPC7)¢IF T1 < INA THEN 41 ELSE O35 : 00220210 
RS TEMPCBJ*IF [2 < YCw3,0) THEN 1 ELSE C3 004220220 
Natacha fi fa TEMPCOJeIF IN2 < 10e(9339) THEN |] ELSE OF sg p30. 
; TEMPLIOQJe©IF IMAX < " ™ THEN 4 ELSE 03 0d0e¢0240 
e6 TEMPCALIJe©IF IMIN < €2x%8) THEN 1 ELSE O3 00220250 
el TEMPE Lederr XC) < ¥¢2,4) THEN 1 ELSE OF} = 20D KO 
Fe TEMPCASICIR xC2) <14,04583)] THEN 1 ELSE O38 00220270 
: TEMPC14)]¢IF YC3,4) < "O" THEN 1 ELSE O38 00220280 
@ Pict ol EMP EES ed FCT oe OC LOY 5 Sr 0 Fe a 8 a el SOC AO PIO es 
TEMPCi3]¢ IF 12.6426] < IMAX,(1%3] THEN 1 ELSE 03 00220300 
B TEMPCL?IJ¢ IF IMAXsf4533) < "" THEN 4 ELSE 03 00220310 
p ocd oN etl TEMPLUSleIF IMAX.{9+39j ¢ (9 DIV 2) THEN 4 ELSE Of __s__=—gg220320 
B4 TEMPCI9Je©ITF "AA" < "ZZ" THEN 41 ELSE O3 00220330 
i TEMPC2ZOJ*IF "MMM < € 100 MOD 51) THEN 1 ai Os 00220340 
in eee TEMPE21JeIF (te +5) « (47 = JA) THEN 1 ELSE O 00220350 
P COMMENT ANSWERS AND OUTPUTS , 00220360 
Be FILL ANS€*#] WITH OCT» OCT1s OCTO, 00220370 
° teh settee 2 OCTO»,OCTOr OCTI> a 002203980 
“ OCTO,OCTOs» CCTil» 00220390 
41 OCTOs OCT1» OCT1>» 00220400 
2 CTOs OCTO» OCTOs 220 
: OCTO» OCTir OCTO» 00220420 
(OCT, OCTO»s ooh 00220430 
CVNe©ots 00220440 
~~ PNO*D23 00220450 
iL VERIFY 00220460 
8 NOs 00220470 ee 
PROCEDURE P233 COMMENT. THE SERIE ENAG OPERATOR (€8)3 00230000 
Ps BEGIN Pas 00230010 
6 ey BOOLEAN Ap Bp : a ee ; c eee O0230020 
INTEGER HedeKs 00230030 
Ae TRUE BeFALSE3 Heiss J@ 154 Ke 303 CeTRUES 00230040 
B AIF A THEN Hs (3) MPC1) « REAL CAs(473 ; 00230050 
Bs Ae IF. A THEN H s J Eav #H S 4 ELSE ‘BE TEMPE 2J¢ REAL CAsC47984)])4 00230060 
a : ACHSu) TEMPL33 + REAL ee soos 4 v 00230070 
<d eee or 8 BP RED ‘J = Of OHOA0 


Data Documents/inc. 


A 8, 6, + y zy < : 5 E = 5 


At IF A THEN Ht JS K OK FSu ELSE Cy TEMPL5) © REALCAL4721))5 00230090 
Ae IF B THEN A ELSE HeJSKs TEMPLOJ*REALCA,L4721)])3 00230100 
veer APHedSK OR HSUS TEMPCZIGREAL(ASL4Y734) 905 Pe eee Real eae PO NII O61 0K Us © Re ee ee 
Ae IF A THEN H4u AND HSJ ELSE Cs TEMPLBI+REALC A.C 4784393 002301320 
AeH+KSJ AND HSK TEMPC9I*REALCA.0C47911)35 00230130 
sais thr nets Seco lS AL ER a i LSE ON £ py ieee Oey 2-00 a Woe 
Ae NOT HSJS TEMPLILI©REALCA.C47¢11)3. 00230150 
FILL ANSE*] wITH OCT1» OCTi*® UCT1» OCTL* OCT1» OCTi» OCTI» 00230160 
fetes eet GP Os CO me 0 Cw Tae sa a a 5 tl OO RON Oi 9 ue ae 
CVNe413 00230180 
PNO¢233 00230490 
es ae Nt se tel A GS a OA INAOO 
PROCEDURE Pods COMMENT THE RELATIUNAL OPERATOR (3)3 00240000 
BEGIN 00240010 
wy es DUO EAN Ap Bp 0 p25 oa een ctat fu fete tee tl eee ae ODER OO2O 
INTEGER Hoedeks 00240030 
A® TRUE} BeFALSE 3 He 153 Ye 153 Ke 303 Ce TRUES 00240040 
ene At _ IF A THEN H®J ELS 3 TEMP Ci) ¢ REAL CAL4781))95 = = 00240050 © 
ACIF A THEN HBJ EQV Hey ELSE B3 00240060 
TEMPCZI¢REALCASC4721))5 00240070 
oT, Fe ANS s At H=J3 MP £3) ¢ REALCA)S en OOZ4008O . 
A ¢HaJ EQV HeJs TEMPC4IJ*REAL (AsC4791))4 00240090 
Ae IF A THEN H#425 OUR Hey ELSE 68 3 00240100 
Sen Sand os EM PS NO NE OS PD pn a | te ht OO MNO ITO sect rs 
Ae IF B THEN A ELSE H+4=4 3 TEMP (6) * REAL (a)3 00240120 
Ae H+JsK CR H= Jy 3 TEMP C7IJ]¢ REALCA)3 00240430 
Ss 2 BO TE 7 BA FLSE C3 oe he OO OPO ee co hte eats 
TEMPCBI*REALCAS(4731))3 00240150 
At HeJSK AND Hed 3 TEMP [9] © REAL CAL473$1])3 002401460 
At If A THEN NOT Hsek ELSE Bs TEMPLIOJOREALCASL47&1 jos 00240170... 
ACNOT HFUS TEMPCALI*REALCA.L4781))3 00240480 
FILL ANSC*) wITR OCTLis OCT1l» OCT1, OCT1l» GCT1ls» UCTO, OCTi»s 00240190 
patel iets.  UCTOS. CCL LecUCT 1a UCTOs 2 on. 2s 00240200 
CVN « 113 00240210 
PNOe 243 00240220 
Sh Sate NN aaa i ea ed NS Dh Se a i 00240230 
END3 00240240 
PROCEDURE P253 COMMENT RELATIGNAL UPERATUR 2 345.921500250000 
= BEGIN aoe —_ 00250010 
INTEGER TOs Tis IN» 22 IN2s IMAXs IMINS 00250020 
INTEGER PR@CEDURE XCK)3 00250030 
eee INTEGER K3 __ 00250040 
BEGIN 00250050 
XeK+23 00250060 
ENG 00250070 
REAL PROCEOURE YCL)3 00250080 
REAL LS. % : 00250090 
a BEGIN 00250100 . 
Yel +3,63 00250110 
ENDS 00250120 
O«0 13 [2¢23 JIN2Qe=23 00250130 
IMAX¢5497556138873 IMINe¢=5497558 13887} 00250340 
TEMPC1J¢IF 0,0 2 1,0 THEN 1 ELSE Q3 © 002501450 
MPP2J¢IR © 4,0 2 JO THEN |} SE 0: 00250160 ae 
TEMPc3]© IF 4,314@63 2 X¢1) THEN 1 ELSE 03 00250170 
TEMPC4)*7T& 94,314063 2 [0.04781] THEN 1 ELSE 03 00250180 
TEMPCSJ¢ IF #1.75@=30 2 " * THEN 1 ELSE O 5 00250190 | bee atl: 
: TEMPLCOJe- LF 1,578@"30 2 10 THEN O ELSE 13 00250200 
TEMPC7I¢IF Ii 2 IN4 THEN 1 ELSE OF. 00250210 
TEMPCOl@Im 12.2 YC"3,0) THEN 4 ELSE 03 00239220 
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TEMPC9J© IF IN2 2 10,£9%391 THEN 1 ELSE O03 00250230 
@ TEMPCIO]¢IF IMAX 2 " ™ THEN 41 ELSE O3 00250240 @ 
oo TEMP eT IM EN 2 C2 x 8) THEN 1 ELSE Of UU PSO a et 
' TEMPC12Z]©IF X03) 2°Y¥C1,4) THEN 1 ELSE OB. 00250260 
@ |: TEMPCAL3I© IF x¢2) 2 11,04333] THEN 1 ELSE 03 00250270 
3 me TEMPridjelF y(3.4) 2.0" THEN 1 Else QO; ————~—~—=si DR _ ee ee ees 
‘ TEMPCISJ©IF YC"1.0) 2 (10/9) THEN 1 ELSE O05 00250290 
@; TEMPCiO]© IF L2.C4e86) 2 IMAX,C123) THEN 1 ELSE O08 00250300 
TEMP(C1i7 Je JF TMaxy,.f45:3) 2." THe | ELSE Of 0 250340... 
? TEMPCiBle IF IMAX,[9839] 2 (9OIV 2) THEN 1 ELSE 03 00250320 
@ |: TEMPCIODJ©IF "AA" 2 "77" THEN 1 ELSE 03 00250330 . 
if TEMP 2O)eIF "MMM" 2 (100 MOU 51) THEN 1 ELSE 03 00250340 2 
10 TEMPC2LJ¢IF (1245) 2 (47"30) TREN 1 ELSE O3 00250350 
r a COMMENT ANSWERS AND OUTPUTS 00250360 
Po ER ANSE *) WITH UCTOs OCTO» OCTI, ORE ORTN 
if OcTO» OCTOs OCTO» 00250380 
@™ OcTi» OcTi» OCTOs 00250390 
i Susan en sO eee DE TOe OCU tw one re ae Aa Sh Sea Se a A oe. Fee OCA IU G00 oe eee 
16 OCTis OCTi» OCT1>» 00250410 
e” QcTi» OcT@» OCT1» 00250420 
ne Sette GOR OG TP OCT Gir eee 8 ae cg ee es es ts oat ls at ae Rg 00250430 
CVNGN213 00250440 
@: PNO¢253 00250450 
cette ct WET ROR Sot sn te go a ie ee eS OOPS O UB Oooo eee 
P END3 00250470 
mm Be PROCEDURE P263 COMMENT THE RELATIUNAL OPERATOR (2)3 00200000 
Pe eae = 1-2. Ch Wenatete ee ee Oe ice EO eet ree ete sl es cite Sola eS, ot OO BO ONO ce nn an hi a Oh edo 
P BOOLEAN AsBeCs 00260020 
@ REAL Ha leKs 00260030 
P AG TRUBS Be FALSEs Ce TRUES He 29/23 Je 29/2) Ke 29/43 0260040 
Rs Ae IF A THEN H>y ELSE 8 3 TEMPCIJ©REALCA,(C4721))3 00260050 
Rs AeIF C THEN Koy EQV H>y ELSE Bs TEMPE 2ZI]*REAL(CA,(4731))3 00260060 
ii we WOH JS TEMPERA CASTS 7 38 113 a a 00 E007 Ot 
ib ACH>J EQV J>HJTEMPCAIEREALCAsL a7t1))3 | 00260080 
@ ACIF A THEN H+J>K QR H>d ELSE CS TEMPESI*REALCAe(47#41)3 00260090 
3 A IF B THEN C ELSE HeurkKs TEMPLOJ+REALCA+(4731])3 00260100 = 
: AeH+J>K OR b>K § TEMPC7I]*#REALCAl4781))3 00260110 
@ AeCIF C THEN H>Y AND H>Y ELSE B & TEMPLBI©REALCASL4721])3 00260120 
Py AK AND HOKS TEMPCODEREALCASCA731I)038 HNO 
id Ae IF C THEN NOT H>K ELSE WOT 83 TEMPLIOJ*REALCAsL47381)93 00260140 
@. Ae NOT H>us TEMPCLLJeREALCAeL47t1I1)5 00260150 
Bo FILL ANSE*#] WITH OCTOs OCTi» OCTO» OCTIrOCTO»OCTOr OCTO» 00260160 
OcToO» UCTO» UCTi» OCTLs 00260170 
@ |: CVNe 11 ; 00260180 
PNO¢26 ; ae te Pa 
VERIFY . 00260200 


END? 00260210 
PROCEDURE P9273 COMMENT TH E RELATIONAL OPERATOR C#3 Co270000  —s_— = 
BEGIN 00270010 

BOOLEAN As Bs C3 00270020 

INT a He J» ; 00270030 


Aw TRUES Be FALSE? He 203 ve 203 Ke 403 Co TRUES 00270040 
00270050 
Lise cee Ae TR 00270060 


Ae IF A THEN Hed QV Hea ELSE Bs TEMPLaue REAL (As L4781])3 00270070 
Ae H # J} TEMPC3)¢. ae ae CA)s 00270080 
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Ae HeJsK OR Kel4521) £ UeL4581)3 TEMPE J® REALCASES7E19)3 00270130 
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A A THEN He SE Cg ¢ ACT 0 Ul | Ae ee 
1 Ae H + K # J AND H # KS TEMP COl]© REAL CAsE4741393— ~00270160—i« | tt 
@ |: Ae IF A THEN NOT HAK ELSE C 3 TEMPLIOJ*REALCASL4721I93 00270170 2|@ 
3 A NOT Hes TEMPEidje REAL (A.C4791))3 00270180 | 3 
‘ A¢ IF A THEN Hel47t1) # H X (d*2) ELSE FALSES 00270190 ‘ 
@ |: TEMPC1Z]© REALCA,C4741])3 00270200 |@ 
6 ve NOT TEMPOEYO) £ TEMPC11]3 TEMPL13]¢ KREALCA.L47#11)3 00270210, 6 
7 Ae (TEMPC10) x TEMPC11) MOU TEMPC11]) # CH *CuxHel4533))/2)3 00270220 ? 
@: TEMPC14]@ REAL CAeL4731])3 00270230 |@ 
2 A ABCD 2 OMMMS TEMPCIST©REALCA,LU781))5 = ATOR 9 
ho A + "“ABCDEF™ # "JKLMNP"S TEMPC16) «© REALCA,[4731])3 00270250 a 
@) FILL ANSC#] WITH OCTOs OCTi» OCTO» CCT1l» OCTl» GCTO»s OCTO» 00270260 1@ 
i te ie oe See aR a a _..90279270 Lio ale ascot Ste 2 
“CVN© 163 00270280 ; 3 
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er PROCEDURE P283 COMMENT LOGICAL OPERATCGR NUT 3950502500280000 | @ 
ra es 2 ON Ne a ee ge eh ch OD OO POM ce sh a fe ieee ten i es 18 
af INTEGER 10% IMAXS 00280020 | rg 
@~ ALPHA AAsAB PACH ADS 00280030 2d @ 
\ ET ee AN as Pi oh tds Spt et or Se OBO es ok ee a ey 2 
BOOLEAN PROCEDURE X(K)3 00280050 22 
@ » BOOLEAN K3 00280060 2 @ 
pe Peace sale 2 cis arc ce a a he re a en ON 5-1) sc ce ee a ve er oes 2d 
ps X © K AND TRUES 00280080 2 
@ EF: ENDS 00280090. | @ 
. ee eee ree JO ¢ rs 3; eats eran: encn e won ‘ ea TS 2 arg Ee ie ee = 12 
TeTRUES FeFALSES 00280110 Ps 
Or TEMPCLJ*REAL (NOT TRUE)3 00280120 1 @ 
p Loe feite OREM ¢ ; 1G Pec pe nptncttteitoh tae Ode te Get pe 30 

TEMPC3)*REAL CNOT Soeac ean CIMAX)))3 00280140 a1 
@: TEMPC4J*REAL CNOT CBOULEAN (10)))3 00280150 \@ 
p tee PD EMPESDOREAL CNOT XCTRUE)) § = = = OC ptee ee OOBU OVS Oe ocr pak detente dn tal ohare et oe ee ed a3 
p TEMPLOJ*REAL CNOT XCFALSE)) 3 00280170 
@ | TEMPE7]*REAL (NOT AA < AB) 00280180 1 @ 
ia ae more (Eanes ae ee se Ppre era cl OE ao en a a i a = 
P TEWPLOTeREAL (NOT AC® AD) 3 00280200 | 37 
@ | TEMPC10J¢REAL (NOT AD 2 AC) ; 00280210 4@ 
_____TEMP le N 2 90280220 ; 
TEMPCI2]*REAL (NOT AD #AD)3 00280230 0 
) TEMPLIZ]*REAL CNOT CIF AA = [MAX THEN TRUE ELSE FALSED)3 00280240 «|@ 
TEMPridde R NOT T F)3 00280250 | 42 
TEMPLISJeREAL CNOT T OR FDS é. 00280260 4 
@ COMMENT wees TEMPCLOJEREAL CNOT T IMP F) #***CHANGE OCT TO TRUES 00280270 , 4@ 
TEMPC17J]¢ REAL CNOT T E@v Fs a 00280280 _ oe As 
: TEMP(18)] © REAL ¢ NOT T , L47%1]))3 00280290 12 
@ | TEMP(19)* REAL CNOT T .64681))3 00280300 Ld 
OR yOod STEP 1 UNTIL 19 DU TEMPE TOJ«TEMP[ 10), C4781]5 00280310 . 
COMMENT ANSWERS AND OUT#@UT; 00280320 : 49 
@: FILL ANS C#) WITH OCTOs OcTis OCTOs 00280330 7 Le. s1@ 
OCTis OCTOs OCTi».. 00280340 51 
OCTO» OCTOs OCTi» 00280350 | 5 
@} OCTO» OCTO» OCT1» 00280360 s1@ 
: OCTi» OCTOs OCTOs 00280370) 54 
‘ OCTOs OCT1s: OCTO, 00280380 55 
Or OCTis - 00280390 | 7 7 | @ 
by CVNGL9) PNO*ZAs VERIFY. 00280800. Oe ee zy 
@ @ @ 
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ENDS 00280410 
r ] PROCEDURE P293 COMMENT THE LUGICAL OPERATOR AKL 3 00290000 
__ BEGIN - aw aa AO ee Ans sO a ag ee See re ne eee Te em WO) EPO LO wot ces send 
é BOOLEAN A» B3 . 00290020 
@ INTEGER Heys 00290030 
3 BOOLEAN PROCEDURE BANDCBANUB)3 -_ 00290040, —( ws—s—s—ss 
4 BOOLEAN BANOB; 00290050 
e:: BEGIN 00240060 
6 atta Bae De R_ [RUE ___00290070 
7 ENDS 00290080 
@ |: INTEGER PROCEDURE TWOBAND(TWOB)S 00290090 
2 “ Soe - ENTE GER TWO OA IOTNO berecicticternaels 
of BEGIN 00270110 
eo. TWCBAND* TWUd+53 00290120 
TO cea ee phen leet and ee EIN Sih at 9 te ew a Mien OU es ee le eee Oe WOOL egy WS Ase Rea ak 
N3 . “A TRUES Be FALSES He 143 ue 73 00290140 
@ Ae TRUE AND FALSES TEMPLIiJ© REALCA. ca7t4}93 00290450 
5 A TRUE AND NOT TRUES TEMPL2)¢ REAL CA.£4731 j)3 Sennen 9109-0 5°R B10 ae Bee Spies al 
he Ae TRUE AND TRUE AND TRUES TEMPEL3) © REAL CAeL4721)93 00290470 
ee” Ae B AND B$ TEMPL4]© REALCA&L47211)3 00290480 
Dg a I tps OB ONNDE NOT UBD Te MPS [eR EAC tl 8 te felled a 10 E> fc Mere eae Aer eee enn ee eae 
pay At A AND B AKD B3 TEMPLO]* REALCASC4791])3 00290200 
" Ae BANDCTRUE) ANO BAND(FALSE)S TEMPL7)© REALCA,C47#11)35 00290210 
Ae BAND( A) AND NOT BAND (8)i TEMP Bje REAL CA,LU7E1})3 00290220 2 
2 Ae BAND(CTRUE) AND BANDCA) AND NOT AS TEMPE QJ© REAL CAD 4781323 00290230 
T oa At H+J>TWOBANDC11) AND H>d, TEMPLIO]© KEALCAeL4781I)5 00290240 
ee H=J#J ANC NOT J>H3 TEMPLIL)¢ REALCAL47z1))3 pe 25a. eee 
P At H+J>H AND H>TWOBAND (5) AND TWOBAND(O)< TWOBAND(1)3 00290260 
@ ' TEMPEiale REAL CAsC4721))3 00290270 
4 Ae TRUE R R_TRUE) A YW 00; ee 
: TEMPC1B8J¢ REAL CAeL47!1))3 00290290 
@ » Ae CH*U4J AND NOT WH>JY) AND (BAND CA) OR NOY TWOBAND (3)>H)3 00290300 
gee emet eee oeele CONE TEMPCidgje REALCA,(47:4))3 BINT 
’ Ae (TRUE AND FALSE) AND (H+J>H) ANC C(BAND(A) AND NOT He 00290320 
Or TWOBAND(O))3 TEMP CiSJe¢ REALCA.C47#13)3 | 00290330 
pp A He L523) 5t2) AND VelU5sa) ¢ Jef45tids CGO BBO 
P TEMP(16)+ REALCA,C47%14))3 00290350 
@® A¢Hel4583]> TWOBANDC(5) AND NOT Jol45%11>0 5 00290360 
pe Ea eee EM 1) Dee A x Betas es Deere Sa 
id ACH, (4531) #£¢ 0 AND J,f4523]20 AND BS TEMPL18]© REALCA,L4741])3 00290380 
@ FILL ANSC*#) WITH OCTO» OcTO* OcTi» OcTOs OcTO» OCTOs OcTi» 00290390 
RS ETO OCT OCTI» OCTOe OCTi» OCTOs (00290400 = 
OCTO» OCTG* OCTir UCTO* OCTOS 00290410 
@ | CVNe® 18 ; 00290420 
- _PNOe 29 é 6 aera eerie 
“3 VERIFY : | 00290440 
@ | : END} 00290450 
5 PROCEDURE P303 COMMENT THE LOGICAL OPERATOR ORS 00300000), 
BEGIN 00300010 
eo BOOLEAN AodB3 00300020 
INTEGER Hog | 00300030 Ae 
BOOLEAN PROCEOURE ONEOR (PaRAi)3 00300040 
i BOOLEAN PARALS .. 7 00300050 
BEGIN. ‘a 7 ; eee 00300060 
a ONEOR® TRUE AND PARALSENDS 00300070 
Op | INTEGER PROCEDURE TWOUR (PARA2)3 00300080 
ae INTEGER PARA} eae a a coe = 
“BEGIN - 00300100 
@ | TWOOR* PARA2+2 3 END) co i Bs Pelee. 00300110 
ey ACTRUE 3 Be FALSE 3 He 14 3 ye 7? = ‘ 00300120 
e 


Ae TRUE OR FALSES TEMPC1) © REAL (A); 


00300130 


@ AeTRUE OR NCT TRUES TEMPC2J*REALCA.C4721))3 00300140 e 
Ae TRUE AN U HUES TEMPC3)¢ R ORF cies antes act ei OSU OU e ect og tle td oo oh 

A* B OR B é TEMP(4]© REAL (A.C 4731393 00300160 ' 

fe] Ae A OR NOT BS TEMP C5Je REAL CAcl47841)3 00300170 / 1@ 
A A AND 473 ¢ wi OOSO01AO. 2 
A + ONEOR (A) OR ONEOR a0 TEMPL7)© REAL (AL47I1I)8 00300190 4 

e A * QNEUR (A) OR NOT ONEGR (Ads TEMPS J@REALC As C47t14)3 00300200 |@ 
fetes «ee MeO 3) AN A) OR ONE > Se QO300210 6 
TEMP(9]© REAL CA, EST 00300220 7 

@: Ae He J<THO@R(3) OR H<us TEMPCLO]e REAL (AD3 00300230 1@ 
° AH A_NCT H> P ¢ ef4731))3 ierpocterintt ce SOU SOO PAO eo he 8 
nd Ae ey ANC H>J OR J<h 3 TEMP C12) * REAL CA) 00300250 10 

eof At (TRUE ANG TRUE OR TRUE) UR (CH OR BDs 00300260 /@ 
na TEMP peice eat ee OOS DOR TOR hn 55.5.9 dee yicre teal ace Sn I 12 
| Ae CHY P J. OR NOT wea} OR CONEOR (A) OR NOT H > 00300280 13 

@ |. pone) TEMPL14]© REAL (A.C47314)5 00300290 1@ 
6 eee Ter ACTRUE OR FALSE ) AND (h + J > H) OR CW >) gg 300300 | Pe eee ee oe ‘5 

ig ea EEeis REAL CAeL47!11)3 00300310 ‘e 
ee, Ae H,04589] > Hy4532) GR ve4583) # Jylaotdls 00300320 ” 
bi ett l a LTEMPE Ale Real Pagar goin: has eed alas teh OO a oe ee re 18 

be Ae H, (4583]> TWOOR(12 GR NOT Je (45%41>03 00300340 1@ 
@ 7. TEMPC17]© REALCA,CA7I1))3 00300350 29 
1 AH POEL IZ0 AND J.fa5tal>0 OR Bs BS ae ce pe ee 21 

P TEMPC1BJ© REALCA.CA7I1I)3 00300370 % e 
@7 FILL ANSC*) WITH OCTi» OCTi» ACT1,» ACTO*OCTi» OCToOs UCTI, pepe tee a pS 
P Ee SER oa he AA fae ee ae QcloOs Octye. # 00300390 ss nuee ae gata Ln wat Ree og Ag rea ae OP ee te 24 
? OcTi» CCTi 00300400 2 

@ CVNe 18 ; 00300410 | @ 
g Ff a ee IN ee et oe Sieciemcerecerwmn OY 61. 38 01) 5 0 Dear ee ae area ee! eS aE 7 

a. VERIFY 00300430 1@ 
> @ ENDS 00300440 29 
sf _PROCEOURE P3153 COMMENT LOGICAL OPERATOR IM MPO ee 50 2H 00910000 | Sets pees TS ee ae ea tet oh ea 2 
: BEGIN 00310010 a 

z@ INTEGER Osi >INis12sIN2¢INAXsIMIN} 00310020 2] @ 
REAL Re RRe RRS hie Sw me, 903320030. wie, Se A ce Meet acces 33 
ALPHA AAsAB;3 00310040 34 

r BOOLEAN BOsB43 00310050 3 @ 
Prk sere _ REAL ROCEDURE X(K)3 een Set tontns! 00310060 0 36 
REAL K3 00310070 eT 

@ BEGIN 00310080 a®@ 
Ri X#K+(23/10)4 feteteeel oie Se i OOS TOO9O. | 39 
ENC 00310100 40 

e INTEGER PROCEDURE YCL)3 00310110 1@ 
aed UNGER aa Bo Bee eet ete ay See de le ee te 00310120 az 
BEGIN . 7 00310430 a c 

® Ve Lobb : . 00310140 , 4®@ 
ee eek eee SN ea ree ee ea ag OOS LOIS OG 2 ce fee ene wo bal 
BOOLEAN PROCEDURE B(M)3 00310160 a6 

@ BOOLEAN M3 00310170 «7 @] 
sag ator IN et 8 se ht ge es ree OOS LO 2° Se eee aa 
2eM AND TRUEF 00310190 3 42 

@ ENDS 00310200 ; sf @ 
tee _ 1060s Tle13s INLeots T2023 INZe*2} 00310210 _ . fst 
IMAX¢10233 IMINe-{0233 00310220 5 

@ | RelL1/103 RR#22/103 RRRe33/103 00310230 sl @ 
AACTA"S pABengty 00310240, , 
BO*FALSES Ble*TRUEs 00310250 | 5 

@ F TEMPCA J#REALC TRUE IMP FALSEIS- 00340260 2 1@ 
TEMPe d3¢ TEMPE 12,00744)3% _ 00310270 eee x 5 
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TEMPCZI©REAL CFALSE JMP TRuE); 00310280 
TEMPE 2) TEMPC 2),04/731)3 00310290 
po tn REMP EST © REAL CRALSE LMP PAUSE DF OOS 0800 
TEMP 3)¢ TEMPC 3),0478133 00310310 
TEMPL4)© REAL CTRUE IMP TRUE)3 00310320 
EMP ¢ 3 CC a re as 
TEMPC5)]® REAL CTRUE IMP B1)5 00310340 
TEMPCOSJ¢ TEMPLO5),Ca731i)4 00310350 
a M ¢ S$ R — 
TEMPCO6J© TEMPE 6).04739133 00310370 
TEMPC7I*REAL (FALSE IMP INL < IN2)3 00310380 
_ TE MPP OP Je TEMPE 7i,fa47ti ys UU 00310390 0 
TEMPL8]* REALCTRUE IMP CIF I2<3 THEN TRUE ELSE FALSE))3 00310400 
TEMPE @Je TEMPE 8),0473:1]3 00310410 
eter ee EMPLEO] REAL CPALSE IMP BUULFAN (TO,£4731)))2 # &#2»&=»=ss”ss)ss—s—/§-—-—/s— Ss Fon ai Oae0 
TEMPc 9Je TEMPE 91,0C4781]3 00310430 
TEMPC1LO]eREAL (81 IMP BOOLEANC]19)93 00310440 
ees TEMPPLOJe TEMPCIO)D Cartas SO 
TEMPeC1ijJ¢ REAL (HO IMP ZCFALSE)D)5 00310460 
TEMPC1ide TEMP(11],C4731)3 00310470 
Leen TEMP CLP 1e REAL (BO IMP Ro 2 ABS Se OO FV OURG. icc coe ee es 
TEMPCi2]¢ TEMP(12],(4721]3 00310490 
TEMPC13)* REAL ¢(B1 IMP BO EQV B1)3 00310500 
ee ete, TEMPridgje REAL(CB1 IMP BOOLEAN CIMAX C4721) ))23 (se ee 
TEMPCL4)© TEMPL14)],C4721]5 00310520 
TEMPC15Je REAL CZC TRUE) IMP BOGLEAN (Y("4)))3 00310530 
oe TEMPE IS J} MPC15) 7t1)i et eee 00310540... 
TEMPCIGI©REAL CZCFALSE) IMP CRR «< xC1))28 00310550 
TEMPC16J+ TEMP(16),C4781)3 00310560 
___TEMPri7deREAL (CZc(FALSE) JMP BO OR BOOLEAN (410))3 00310570. 
TEMPC17J© TEMPC1i7),04721)3 00340580 
ee REAL (ZC TRUE) IMP BOOLEAN CIMAX.(4721]))3 00310590 
je : > E Seat Seta tar 
TENPEL9}¢ REAL (C BO IMP BUOLEANCIO)) IMP (NOT BL IMP BOD); 00310610 
TEMPC20J¢ REAL Cré < 11 IMP NOT B1)3 00310620 
Sete eee M CS 7uii3 [ko eee eee 
TEMPC2t]¢ REAL CCRRRSRKR) [MP BOOLEAN CIMAX,(639%11]))3 00310640 
TEMPC21)¢ TEMPC21),0C478193 00310650 
__TEMPr22)¢ REAL (RO AND BOOLEAN CJO) JFF NOT BY OR 8O)3 00310660 —s_— 
TEMPC22) + TEMPL22).0C47siy3 00310670 
TEMPC23)¢ REAL (Bi IMP BOOLEAN CIMIN.(£4381]) IMP NOT BOD} 00310680 
TEMP Je TEMPE 23 74143 OO310690 ss = 
TEMPL24]¢ REAL € BOOLEAN (€ 10004531]) IMP BOel408411)3 00310700 
TEMPr24)]¢ TEMP(24).04/31)3 00310710 
COMMENT ANSWERS AND QUTPUT3S 00310720 
FILL. ANSCe] WITH OCTOs OCTis OCT1» 00310730 
OCTi» OCTis OCTi» 00310740 
‘OCTi» OCTyse OCTYs 00310750 
OCTi» OCTi» OCTi» 00310760 
OCTOs OCT1» OCT4» 00310770 
OCcTi» OcTis OCTi» 00310780 = 
OCTis OCTis OCTis 00319790 
OCTi1s OCTL» cCTi3 00310800 
CVN@253 003130810 | 
PNO+313 00310820 
VERIFY 00310830 
NOs Aue ee Se ee 8S OOS OB = 
PROCEDURE P3235 COMMENT 3e5e50 fe gavi 00329000 
1, BEGIN GO gs 00320010 
BOOLEAN JA 8 Ped NO 0020 
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A¢TRUES BeFALSEs C#TRUES Der ALSES 00320030 
TEMPLL) ¢IF A EQV C TREN 1 ELSE 03 00320040  ] 
eee TEMPE2) © IF A £OV D THEN 1 FLSE Og = BOOS 
TEMPC3] * IF 8 EQV C THEN 1 ELSE 05 00320060 
TEMPC4) ¢ IF B EQV D THEN 1 ELSE 03 00320070 1@ 
TEMPLES) ¢ IF B FOvVCA EQV(B Egy C)) THEN 1 ELSE OZ —=ss—s——sSc0320080—— 3 
TEMPC6]¢ IF (8 OR C) EQV A THEN 1 ELSE Of 00320090 ‘ 
FILL ANSC*) WITH GCT1» BCTOs OCTOr OCTi» OCTi» OCTL3 00320100 |@ 
a atte Saw OVI SOR INOS eee CI ee nn a 00320110 eee 6 
END}. 00320120 ? 
PROCEQURE P333 COMMENT SIMPLE DESIGNATION EXPRESSION 3¢60301 00330000 |@ 
I 8 96 00330010. 9 
BEGIN 00330020 10 
LABEL Alo ACs ASP ASP ADe ACF ATS ALLS A222 ATS ASAP ANAS AUSD AbBe 00330030 |@ 
i AG AA 901 C2 C39 C4 0 CD COP C7 CB CF C10 sClisCl2eCiapCide 00330040. Fe ee ee eee iy nee ee ep 
C152 CL6e C17 %# C18 C199 C202 C21" C229 C239 C242 C250 C268 00330050 iS 
C27 9C2Bs D1e020D304 »D5 0 D6} 00330060 @ 
ee he ABE oe 13eRUsB5sHbsR7.HBS 30070... eee A es ee 
REAL AeB3 00330080 '6 
INTEGER Ho} 00330090 @ 
siesta DOLE AN ou OPEB occ OOS IO OO eee oe : a ae etd 18 
SWITCH SIMDESIGeA1lsA2»A3sA4PASDAGPATS 00330110 "9 
SWITCH EXTRA ¢ Bi» B2>B3%B4sB5>B6+B7+B83 00330120 “j@ 
ae Swi i PO P3 0 er eS a al 
INTEGER PROCEDURE A55(A95A)3 INTEGER ASDSA$ FORWARDS 00330140 22 
SWITCH DESIGSTAT# Al1»(AZ2)» EXTRA CA+B]s IF D THEN A33 00330150 23@ 
See ass HO ak Ad4 “2)) 00330360... eee ay 24 
ELSE DESIGSTAT C7)» IF D THEN a44 ELSE IF 00330170 2 
E THEN AGS ELSE Ado» C26- 00330180 | @ 
7 EXTRA (CCA55(3)+mel4724) ENTIER ¢€A))}% 00330390 | ata seule sean 2 
“INTEGER PRUCEDURE A55(A55A)3 00330200 ze 
INTEGER ASSA 3 00330210 of @ 
ies BEGIN ae sega ONS OE OO oo. bce aces Nc ee oe Sas ae eo 
A55¢ AS5A + 13 00330230 1 
ENDS 00330240 | @® 
A 32S Be 7/45 De TRUE F Ee TRUES He77 5 Ce 13 sce Bien ty OO DOO. tne att Sane ctl hy een eee aes 3 
GO TO Als TEwPLC}*« 03 Ce C+l3 GO TO Dis 00330260 z 
A1! TEMP(C) « 23 Ce C413 00330270 33@ 
N1% GO To ¢A2)3 TEMPECI*© 03 Ce C+15 GO TO 023 eet OP IO SOO Fisch aes _ 36 
AQ? TEMPCC) « 33 C+13 00330290 a7 
02! GO To SIMDESIGL4+7=8]3 TEMPLC]©* O03 Ce C+is Go TO D33 00330300 3 @ 
___A3% TEMPIC) ¢ 43Ce C¥l3 003303140 3 
03! GO To SIMDESIGE 8 + B+ B- A J3 TEMP[CJ€ Of Ce C413 GO TO D4s 00330320 
A4t TEMPCC]* 53 Ce C+l3 00330330 |@ 
048 GO TO SIMDESIG C H.£4583))5 TEMP(C]© 03 Ce C413 GO TO D5; 00330340 eee 47 
AS! TEMP(C) « @§ Ce Cl; | | : 00330350 4 
p05! GO To SIMDESIG C a35¢5))3 TEMPECJ© OF ce Cais GO TO D063 00330360 ® 
AG’ TEMPIC)¢ 73 Ce C413 00330370 7 4 
N6t GO YO SIMDES|{G C(H«(45?3) ® Ade B + ASSC=3))3 TEMPICI«O 00330380 14 
CeCey3 | 00430390 1 @ 
A7t GO 10 ( IF 0 THEN C1 ELSE C2)s TEMPLC 1605 ceC+15G8 TU C3: 00330400 ° A 
Cit TEMPCC)#6; Gec+is GO TO C35. 7 00330410 49 
C2) TEMPCCJ¢B8BsCeCHl; 00330420 | @ 
c3! GO TO ¢ IF D THEN (C4) ELSE ¢C5))3 TEMPLCI¢03 C#C+15G0 TO 663 00330430 _ 51 
C4t TEMP(C)*93 Cec+13 GO TO COs 00330440 5 
C5! TEMPLC]¢993CeCH13 00330450 51 @ 
cét GO TO CIF B THEN CIF E THEN C? ELSE C8) ELSE C93 TEMPEC1#0s 00330460 64 
Ce C4+is GO TO Clos ; 00330470 55 
C71 TEMPECI+103 ceC+13 GO TO 010 3 00330480 5 @ 
g MPPC le 400% CeCei? G0 TO 00330490 E 
@ °@ 
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C9 TEMPLCIJ*#1113 CeC4i3 00330500 
c103 EeF ALSES GC TO CIF O THEN CIF E THEN C12 ELSE C11 ) ELSE 00330510 
Sacto Z : 28 EYL OR Mn eae i S See 00330520... 
TEMPECI]©O} CeC413 GO TO Clos 00330530 
C1iilt TEMP(CJ¢113 CeC+is GO TO C163 00330540 
12% TEMPrcje + ‘ 00330550 .. 
C13% TEMPCCJ©11393CeC+13 GO TU C1463 00330560 
C143 Ee ais Csr ts GU TO V163 90330570 
C15% TEMP 3 Ce 
c16: GO To CIF D THEN DESIGSTAT(IB + B =A “AJ ELSE CI7)3 TEMPE CI€Q3 00330590 
Ce C+#i3s GO TO Cis 3 00330600 


Ail? TEMP(ClejasCeCots GO T os sistas 


1 eee 


aes een sneer 


00330610 


C17% TEMPCCJ]©1213 Cecel3 00330620 
C18? GO To CIF O THEN CIF D THEN OESIGSTAT CHeLa582) ELSE 00330630 
ee ert es C19) ELSE C20)s TEMP(CJeOs CeCots GO Te C2 Wh eo a, OOS 064 ae essoe nt a 
A22t TEMP(CJ*133 cCeC+13 GO TO C2i3 00330650 
Ci9% TEMPCC}e1315 CeC#13 GO TO C213 00330660 
_ C20! TEMP(C) +1323. Cec+13 sites ine Seo A ees eee ee OO SOOT O21: a mineruch 
Cait: GO To CIF D THEN CIF & THEN C22 ELSE DESIGSTAT [A55¢2)]) ELSE 00330680 
CIF € THEN C23 ELSE CIF E THEN C24 ELSE €25)))3 00330690 
ae TEMPE COO, CeC+ig GO TO Ceos. 00330700... ene Meroe 
B3! TEMPECle143s cec+1s GO TO C263 00330710 
c22t TEMPLC)¢1413 CeCe GO TO C263 00330720 
C233 TEMPrCcje ¢ oie eo ee ee es O03 907 36 ek 
C24t TEMPCCI]© 1433 Cect+is GO TO C26; 00330740 
C25? TEMPLC) ¢ 14435 CeC+l3 00330750 
£263 GO TO DESIGSTATCH [4226] x(arB) = a55(37 ))3° 900330760 _ Sins 0. 
TEMP[CJ]¢03 CoeC+13 GO TO C273 00330770 
A33% TEMPCC]©153 CeC+is GO TO C2F; 00330780 
_ A334? TEMPLC)¢1$15 CeCe; 33 et et ok eee 
c27: GO TQ EXTRA CS5]5 TEMPCCI*©O; Cec+is GO TG C2835 00330800 
B5% TEMP(CJ¢163 CeCe) GO TO C2b3 00330810 
‘AS8t TEMP[CJ416 Cece} 00330820 
C28! GO TO SESCeSTATEG > TEMPEC]*O3 Ce C#t3 GO TO A473 00330830 
Bo: TEMPECI]© 175 GO TO Au73 00330840 
____AS?$ Bil B2s B4t BBt B7% AddtAGS? Asot 00330850 en eee 
FILL ANS C*) WITH OCT2s UCT3s OCT4r UCTS» OCT6s OCT7» 00330860 
OcT10» UCTAl»OcTi2»s UCT13» UcT14s 00330870 
eee ees OCridss OCT16» UCTi/» UCT20» OCTei3 00330880 oP elite bea A oe ee 
CVN]163 00330890 
PNOe335 00330900 
__ VERIFY 00330910 Pare 
ENDS 00330920 
PROCEDURE P34% COMMENT GENERAL DESIGNATION EXPRESSION 3¢60302 00340000 
peels oy ate! 0 5 196 KM 3 00340 = eee 2 
BEGIN 00340020 
LABEL Xie X22 x3, Xa XD» x6, X479 V1» Vas Y3e Y4&s Y5Se Y6x G0340030 
a oe QO3bO040 
¥18> Y19%> Y203 00340050 
INTEGER ee 00340060 
A e 
BOOLEAN QE}. 00340080 
SWITCH AERERAL, FORWARD 3 00340090 
¢" ORWARD “3. : ole 4 ae 
SWITCH GENDESIG FORWARD; 00340110 
REAL PROCEDURE FUNCAAA)S REAL AAAS shee 00340120 
SW H GENDES rs A+B)» D RAL 00340430 EET Ae 
Ser Ane GENLOOL I» GENDESIGL 41» GENE Hs Caeielia 003460140 
SWITCH ae GENERALL 3. oe “A saga iap eon 00340150 
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oer Om HU POlhBDULN Oe 


Lx} 


3 
[3 


SWITCH GENERAL © X41» X20 X35% X4e xX5% XO5 00340170 
REAL PROCEUDLRE FUNCAAADS 00340180 
oe Stn oles eas ids EE Ps alates hg Sheet eas te a si A eal oe es hee PAO 1G Oc era tos 
BEGIN 00340200 
FUN® AAAS23 00340210 
Pee are eA a a ie oh es ee OO OD 
He73 Ae 3/43 Be 77203 Ce 9/4103 De TREES Ee FALSES Ke 13 00340230 
GO TO IF D THEN Y1 ELSE Y23 TEMPCKIJ©REAL(D)3 KekK+ls GO TO Y33 00340240 
___ Yi? = EMPL(K Je i KeK+]3 G Q Y3s itera 9S Be ean ie Ake come 
Y2t TEMPCKJ© 113 KeKel3 00340260 
Y¥3' GO TO IF E THEN Y4 ELSE GENDESIGCAIJ$ TEMPE KJ©OsKekels GO TO Y5Ss 00340270 
___ Yai. TEMPrKle© 213 Ke Keis GO TO YS) OBO 
Xt? TEMPCKI]© 2 3 KeKel3 00340290 
¥5! GO TO IF D TREN GENDES{GLA+1] ELSE Y63 TEMPCKI]©03 KeK443 00340300 
es wena A NB ce eh ay Se ee ie oS es nt i eS 
X43 TEMPCKI©3 § KeK+13 GO TO Y74 00340320 
YOt TEMPCKI]© 3135 KeKel; 00340330 
_Y7* GO TO IF 0 THEN CIF € THEN Y@ ELSE Y9) ELSE Y1Os TEMPLKI*©Os KeK+1s 00340340 _ 
GO To Y113 00340350 
Y8! TEMPCKI]©415 Ke K+15 GO TO Y113 00340360 
Yor TEMP(K)*43 Ke Keys GOTO Vids HOBO 
¥103 TEMPCKI]«42}3 Ke K+i3 00340380 
Y1i1: GO TO IF € THEN Yi2 ELSE IF E THEN Y13 ELSE Y143 00340390 
__TEMPeKJ)©O3 KeKeis GO TO Y153 00340400 _ 
Y12% TEMPCKI¢513 Kek4+l3 GO TO 1155 00340410 
Y13! TEMPCKIJ«523 Kek+1; GO TO Y155 00340420 
pu rembemrcraneeres Ome EL oad a? che ey Le ca) ee a a 00340430 0 
Y45? GO To IF — THEN GENERALE5SJ ELSE IF € THEN GENERALLO] ELSE 00340440 
GENDESIG£L3]$ TEMPLCKI©Os KeK*1s GO TO Y16; 00340450 
___..X5% TEMP rK) «643s KeKais GO TO Yi6s OO 
X68 TEMPCKI©623 KeK+13 GO TU Y16;3 00340470 
X38 TEMPCKI©6 § KeK4e43 00340480 
1163 DeFALSE3 GO To IF ¢ THew CIF E THEN Y17 ELSE Y18) ELSE IF £ THEN 00340490 
CIF 0 THEN Y¥19 ELSE Y20) ELSE GENDESIG(H,£ 4682) 133 00340500 
TEMPCKIJ©O 3 GO TO X473 00340510 
_YA73 TEMP(KJ©713 GO TO K47) HK 20 
Y¥148: TEMP(KI]¢723 GO TU X473 00340530 
Y19% TEMP[KJ)¢733 GU TO Xx4?3 00340540 
_____ ¥20% TEMPi K+ 743 GO TO x473 FC 0550 
x2% TEMPCKI]€7;3 00340560 
X472 00340570 
_ FULL ANS C#)] WITH OCT1» OCles OCT3, OCT4s OCTS,» OCTS, OCcT?3 00340580 - 
CVNe© 73 00340590 
PNOe 343 00340600 
VERIFY 00340610 
END} . Beil 00340620 
PROCEDURE P353 COMMENT. SUBSCRIPT EXPRESSION OF A SWITCH DESIGNATOR 00350000 
ee 4g NOV, 15 19625 KMS 
BEGIN 00350020 
LABEL X49 X29 X39 X4e X59 X60 Fis Pes Pie Pus PSs Pés P?e 00350030 
P8, P9, P10» Pil» P4a3 00350040 | 
REAL AsBsC3 BOOLEAN Kets i 00350050 
INTEGER FeGsts Qs... 00350060 
3 W ‘MH SUBSe X1eX2eXBoxXdsX5e X63 00350070 
INTEGER PROCEDURE SUBSVALC(SWICHVAL)3 00350080 
INTEGER SWICHVALS 00350090 
BEGIN 00350100 
SUBSVAL*SWICHVAL * 43 00350110 
ND 3. ; 00350120 
Ata} Be4/33 Ce 2/03 Fel?) Ge 553 He 213 Ke TRUES. Qe13 00350130 
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09350100 


i 
L* FALSE3 . 00350140 
@ GO TO IF K OR L TREN SUBSE 2xC *CA+B)) ELSE Fis TEMPLQ]+¢03 00350450 
ee GEOFF GO TO P23 Sc 7 
1 Xit TEMPCQJ*13 QeQ4i3 GO TO Pas 00350170 
@ |: Pit TEMPCQ]¢113 040413 GO TO P33 00350480 
3 P2! GO TO IF | THEN P3 ELSE SUBSE CSUBSVALC3) MQU A) + AJ 00350390 i —is—s—s—s—s 
4 QeQ+13 GO TC P4s 00350200 
@ |: P3? TEMPCQ)*215GeQ+153 GO TU P4s 00350210 
6 X2t TEMPQ)e23 Qea+s3 00350220 
7 P4tGo TO IF K THEN SUBSE"AB™ MOD “A” + Hel43#21) ELSE P53 00350230 
ee: TEMPCQ]*O0 § QeQe4s GO TO Pos 00350240 
*|___P5#_ TEMPLOj*O 3 gedsis GO TO Pos _____ Sette Aieter  e OO SSO OS Oe os, 
rd TEMPCQ)#33 Q*Q+13 GU TO Pos 00350260 
eu P6! GO TO IF K AND NOT L THEN SUBSC™A™=SUBSVAL(12)) ELSE P73 00350270 
ne ar eee cet ME TOMO nd OOP GO TU Ree 6 2 ed oo 
13 P7! TEMP(CQ)+413 Gedeq3 GO TO P83 00350290 
@. X43 TEMPLQ) * 43 O+Q413 00350300 
4 t—“‘i BS GO TO IF L THEN PO ELSE SUBSE He(4236) +( (AIX 10) 44)8 = 0 350R10. 
16 TEMPLQ) * O $ QeGtls GO TU P1O3 00350320 
eo” P93 TEMPCQ)© S13 QeQe13 GO TO F10} 00350330 
mo XE TEMPO] 5G Cede See oe Poe oe Th a led Be ot IOS SO SAU «ei n5s. 
ne P103G0 TO IF L THEN Pii ELSE SUBSESUBSVAL(A.L45%3))43)3 00350350 
oz TEMPCQ]©0 3 GO To P44; 00350360 
| PL TEMPEQie 613 GO TO Pass ute Bee ee 
X6% TEMPCQ]© 6 3 00350380 
@ = P44: 00350390 
eee FILL ANS CC] WITH OCTi» UCTes UCT3s OCT4s UCTS» OCT6 § _.00350400 
CVNG6 3 00350410 
@ 7. PNO¢353 00350420 
Py VERIFY St Ne ee 00350430 _ 
Pa ENDS . 00350440 
@ » PROCEDURE P363 COMMENT CUMPOUND STATEMENTS 00360000 
po __ BEGIN LABEL LisbhZobL aol dol 5b G3 00360010 
BEGIN COMMENT DUMMY STATEMENT TEMPL1J*6 ENDS ENDS 00360020 
@ BEGIN END3 00360030 
Po nee ie tat BEGINS Fe ae a ae ae ener ae eae ee Corl a Se ae rae OE 00360040... 
‘ BEGIN BEGIN BEGIN TEMP(2] * 2 END END ENDS 00360050 
@ TEMPL3) ©3360 TO Lis 00360060 
ad a TEMPLES) © TEMPOS) GU TO L3s UU 60070 
ef BEGIN 00360080 
o Lit TEMPC4) «© TEMPL335G0 10 Lzs 00360090 
ENDS 00360110 
BEGIN 00360120 
ee 3 158 TO 163 
BEGIN % 00360140 
La: TEMPC6] « 63G0 TO-LS 00360150 
ENDS er 
LO'ENDS 00360470 
FILL ANSL*] WITH OCTO»s OCT2» OCT3» OCT3* OCT3s OCTO 00360180 
CVN « 63 PNO © 363 VERIFY 00360390 
END} | "00360200. 
eH PROCEDURE P373 COMMENT Goi BLOCKs 5,0,2 DECLARATION» CyCyZartiri9m62s 00370000 
61 BEGIN INTEGER Ils I22-I33 REAL Rl» R2e R3} BOOLEAN Ble B2e 833 00370010 
7 ARRAY AiCit3)» Avlit3e4i3)* A3L12301%3e1:3)5 LABEL Lj»e L2e L3? 00370020 
@ LitBl « B2 ¢ B3 « TRUE $ RL © 13 R2 © 23 RI © 3S 00370030 
aioe FOR 11 ¢ 4 STEP 4 UNTIL 3 DU | 00370040. 
55 L2sBEGIN AICIL] © 115 FOR 12 * 4 STEP 4 UNTIL 3 DO “00370080 
@ | BEGIN A2EI1,12) © 114125 FOR 131 STEP 1 UNTIL 3 DG 00370060 
ef : ‘ ARC tte teeta) ¢ A * 133 00370070 
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@ | q 
L3%ENC 00370080 
@| ENDS ; 00370090 q 
we Md dg 12 62 § 13 ¢ 35 COMMENT INITIALIZATION OONES = pas70inn 
f BEGIN COMMENT RE*DECLARATION OF LABEL AS BOOLEAN VARIABL# 00370110 1 
@ |: BOOLEAN Lis Li ¢ 613 IF L1 THEN TEMPL1) « 00370420 2/@ 
a Se Ta se Ne Nn le epee a ee ee, 00370130 = 3 
4 BEGIN COMMENT USE OF GLOBAL VARIABLES AND RE*DECLARATION OF AN 00370140 4 
@|: ARRAY AS A LABELS LABEL A30L43 00370150 /@ 
é seadetae so BORIS Ne THEN: GO-TO Ut EESE GG TUR $e cs OOS70160.... eee ens 6 
7 LisTEMPE2] ¢ R35 00370170 | 7 
@: A3ENDS | 00370180 |@ 
4 BEGIN COMMENT SWITCH DECLARATIONSS LABEL Lie L2» £33 SWITCH SWL00370190 ___ SER a TR Ee 8 
R ¢ Lis Lae 033 GO TO Swif2)s Gd 10 L13 La: TEMPC3] © 643 00370200 10 
@': Lit 43% ENG 00370210 @ 
be BEGIN COMMENT NESTED RE*DECLARATIONSSINTEWER I2s 12 *¢ 133; 00370220 Be ie oN Ae pete et come tee LS 2 
: BEGIN INTEGER 114 11 * 12 + 13 | 00370230 13 
@| BEGIN INTEGER 123 12 «© 14 413 00370240 ) 1@ 
> ae BEGIN ENTEGER TAS Th © 12 413 Tempra) «© Ti ENDS 00370250 Se ata eed eee ae ED er ae 15 
is TEMPE5}) © I2 00370260 16 
eo” ENC TEMPL6] « Ii 00370270 |@ 
re ma ENDE TEMPE? © te oazopao 16 
i9f ENDS TEMPL8) « [2 3% TEMPLO] + 11 5 | 00370290 19 
@ BEGIN COMMENT SPOT*CHECK OF ARRAY yYALUES$ ARRAY BiClisI3y>» 00370300 ed @ 
1 : 3 t rae y : 21 
ig FOR Ri « 1 STEP 1 UNTIL 3 DO 00370320 fa 
@: BEGIN B1CR1] * AlCRiJs FOR R2e 4 STEP 4 UNTIL 3 DO 00370330 21 @ 
aan BEGIN B2LRL RA] ¢ A2CH1 R21; FOR Re 1 STEP 1 UNTIL 00370340) 2. 2d 
' 3 OG BICRL+R2sRZ]1¢AR(R1>R2-R3] 00370350 2 e 
e END 7 | 00370360 | 28 
; ———----——---—--ENDS _TEMPC10] ¢ Hif3]s TEMPCiy) « Bargegip 70370 2 
a TEMPLi2}¢ B3033°3)3 00370380 
@ : END$ TEMPC13] * RAF TEMPE14] © Ros TEMPL15)] « R33 00370390 
po a BL THEN 6) « 43 2 THE PEi7) « 43 00370400 | 
IF B3 THEN TEMP(18) ¢ 13 | 00370410 
& FILL ANSC#) WITH OcTi» OcT3* OcT100* OcT6s.OCTS* OCT4s OcT 3s 00370420 
P Ae iti OC Tee. 3 ce) CTi OCtTe, 00970430) 
OCT3» OCT1» CCTl» OCTI 00370440 
@ CVN « 18 3 PAO « 37 5 00370450 
ioe VERIFY pe OST ONOO 36 
ENDS - 00370470 27 
@ » PROCEDURE P383 COMMENT ASSIGNMENT STATEMENT ww 30 OCT 633 00380000 1 @ 
; ~BEGIN i pgseootg : 
REAL A3 00380020 10 
@ INTEGER JoKow3 00380030 «|@ 
EN I i ee i OOS BOON Ory cas aa 
ALPHA. Z3_ ae i 00380050 a . 
© ARRAY XC4t373 | bs : 00380060 | 4@ 
___ REAL PROCEDURE KORK3 00380070 45 
BEGIN 00380080 ‘4 
e TEMPCi2]¢ KORKe TEMPC10) 00380090 18) 
; ; 00.380 r 
TEMPE 1) ¢ 27/23 : 00380110 : 4s 
@r. TEMPC2}¢1623 : : 00380120 : | 1 @ 
coe ee oe WET ZIRG - 00380430 s 81 
TEMPE3) ¢ Z3 00380140 5 
@: Me73 00380150 «| @ 
Te TRUE | 00380160, _ 
S « M < TEMPC2) AND Ts... | 00380470 : a 55 
@ TEMP(4) © IF S THEN 1 ELSE 03 00380180 Fat . 1@ 
e W ¢ 67/53 2 ee : 00380490 ears ee eis F 
@ ® @ 
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TEMPCS]* gi 00380200 
r ) Ke TEMPLL)3 00360210 
Pee eae TOT Oe eae i) re WS ets, ___ 00380220 
1 TEMPC7) © TEMPLS] ¢ TEMPL9) «© TEMPELI3 00380230 
@ i TEMPC10] » XCile21/23 00380240 
3 edn diene os VEMP EI PR Se Se Mg CAS SF a cee cee ee __._ 00380250 | 
4 Ae KORK3 00380260 
@ i FILL ANSC*#)] WITH GCT1010000000000154» GCT242» UCT662531713151» 003480270 
5 ben a a ed ee ee EI CT15 CT16 Q ) 0 , 00380280 = 
7 OCT101000000C000154» UcT1010000000000124 QCT?7» 00380290 
@: OCT10100000000001243 00380300 
‘t Eon a i NN a a tea lk a a RO ee Onn 
fo PNO « 383 00380320 
@" VERIFY 00380330 
oe lacie NOS se i Soe, OO SOO SAO ch el Sas, 
13; PROCEDURE P393 COMMENT GO TO STATEMENT WITHOUT “PROCEDURES AND SWITCHES*#00390000 
@« 4,3, WIT» 11°79"62, THIS PROCEDURE DOES NOT USE 00390010 
Be ones AF tee tpn NORMAL TESTING MECHANISMS OF TEMP, ANS» VERIFY = 00390020... 
"6 THE PATH THRUUGH THIS PROCEDURE IS AS FOLLOWS? 00390030 
@” Li t2 663 L4 LS L6 LL? LB LO L1000390040 
(a wsctinasiotbeck Serato lah cinta te SE ea SS hi? 48 149 12000390050... 
z L21 22 23 (24 L25 L226 L27 L2e £29 L3000390060 
@ L3i t32 433 L34 C35 L36 L37 L328 L39 L4000390070 
Oh cee SR onan aa ee me Q3290080. 
rf L521 L52 L53 L54 155 LS56 LS57 L586 L59 L6000390090 
@ » L61 (62 L643 L64 L65 L66 L677 L168 £69 17000390400 
j}$——---- psp a EN a alia ae See SA a A OS oat oo A ee et ee Si OOTP O TAO f 
P BEGIN 00390420 
@ zs LABEL Lis aber et esuart 6 SUED ESL Tiel taet (atest peal ies 00390430 
27 een 7 8» 20 3s 259 Lee 7 Gs , 390440 
RB EC AECCETe L375 3801 39% SEE aT a CHCA ON er ErcHTCor 00 390450 
@» LSQsL53eLSdrL SSL S6rLS7oL 58 sL SIL O2sL OIL EULOT>L70FL7 IL 72% 00390460 
pe Scenery Sf 4 v 7 9 003901790 
' L68sLA9sL90sL 943 00390180 
rd i MONITOR SUERTE Le Cones Lac Letweeed Oe vonraieiayelan Mh ASeeR, 00390190 
B3 le AT be 1B eb AG eL 20 ob 220 230b 24 el 25eL 2osbLe7obL PBol 29oL 30eLGieL ace 00390200... sss 
P L33 91355136 L357 pL 38 rh 39 Ld pL bee L ad pL Goo L GO el 47 oL 4B erL 49 ol SU, 00390210 
@ BS C5205 30 54 eL 55 el 56L 57 ol 58rL 592 6204 6 IPL OUSLO7>L7ZO*L7 4s 729 00390990 
ie co bP Deh TYoL7S ob PE sL 77 oL7B aL 79 oL BO oL Sd oLSeolLS3oL OMe B5oLG86eL 875 00390230 
: LBBsL89eL90sL91)3 00390240 
@ » 00390250 
‘| weg NE GE Bn ht sag ed et OUI OPCS oe to 
a0 L1? GO TO Las 00390270 
@ |: L46% GO TO L473 00390280 
2 48% GO TO Lag3 00390290 _ 
3 ‘LS3! GO TO L543 00390300 
@ i. L2t IF TRUE THEN &3: GO TO L4 3 : 003903140 
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ee: FOR c* TEMPC1)] + TEMPL2] STEP TEMPC2) WHILE A IMP B E@V B pQ 00470180 
_ BEGIN GO G +) SIx(P)e Ae BUOL FAN (G,f43%i))¢7 POLO 
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. FOR C+ 2: STEP 1 UNTIL 5 DO FOR C+ C#5 STEP 1 UNTIL 15 -D0 BEGIN 00480250 
IF C213 THEN GO TO PNTS END 3 00480260 
@: PNTS$ GeG+13 TEMPLGJ+ C3 00480270 
FILL ANSES) WITH OCT47s OCT3s OCT22» OCT42, 00480280 ———s 
a “OcTL010000G00000234» OCT 16e OcTis3 00480290 
@ CVNe© 73 ee 00480300 
: PNOe 483 | : oa a es 7 00480310 _ 
@ 


VERIFY 00480320 
@| END3 00480330 Ld 
peer. PROCEDURE. -PS03 COMMENT VALUE ASSIGNMENT = PROCEOUHE CALLED SY VALUE OO3N0000 oo 
EK 18 NOV 623 00500010 
®@ BEGIN 00500020 1@ 
hat easee tne X 2Xé p ee _.90500030 == 3 
ARRAY AL133)» B[1:3]3 00300040 4 
@ BOOLEAN 13 00500050 |@ 
Bee ht pis on eee ePOOSOCOA0 os ob cee ees 6 
INTEGER PROCEDURE PUNCEA SAG: NDE 00500070 7 
@ ARRAY Ali)3 00500080 |@ 
oe eSe Steed eI TR Be MNO oe cer ae gree oe 90500090. 9 
BEGIN 00500100 @ 
er FUNC © CACL]©xX3)xN 00500410 iB 
essere re ers DG cre ene Sa A ee Te hs Se i, a om OL et aan 6, tye at ee he Soke eh a 
“PROCEDURE VASSIGCFP1 so FP2 oF FP 3eFPGsk PSeFPOeFP 7 oFP BF PO*FPLOsFP11s005001 30 4 
@ |: FPID*FPLS*FPL4e PPL Se PPLOSEPIOSFPZOPF PALO FP220FP23eFP24e 00500440 @ 
ee eee : TOL 0 Oo Sie Reece! cae ee eee ea ee ee 
VALUE FPL FP22FP39FP4eFPSoFP6SEP7; 00500160 16 
er INTEGER FPLloF P25 FP30FP4sFPOsFPOsFPIUsFPLLeFPIZoF PL 3s 00500170 |@ 
eto te ta ~—-—-_________FP15/FP19sFPeOsFheierP2eeFPeaerP2sefh7s = 500180 me Net a ee ee 
BOOLEAN FPOsFPideFP243 00500390 . ‘9 
@ ARRAY FPBCiJ«e FP1L6C123 00500200 21 @ 
BEGIN ; ; ioe Bear Seat oee 21 
: LABEL FP7$ IATEGER I3 00500220 2 
@ | COMMENT WHEN ALGOL IMPLEMENTS GG TU NON LOCAL LABELS 00500230 23 @ 
ee THE ORIGINAL MEANING LF TRIS LABEL, DECLARATION ss godude2wa. oe) ” ree 24 
“SHOULD NE EXPLORED. SEE NOTESs3 00500250 2 
@ FPO © FPI3 00500260 | @ 
a Pt P11 ¢ FR3 3 00500280 is 
3@ Pi2 + FP43 00500290 3 @ 
3 Bae ater ee eg ee oe oe ee 905900300 20 be 
eee | FP14 « FR63 00500310 al 
£@: GO TO FPT3 00500320 =| @ 
Meth chet Dds et la et __ FP?! FPiS ¢« 4095s 00 9035900330 0 2 ae fe 
‘ FOR I « 1 STEP 1 UNTIL 3 DO FRB C(I] « 73 00500340 ‘ 
® FP1 © 23 00500350 2 @ 
: PD + BS oe 00500360. ss 36 
FPIeFP2.(4583)5 00500370 37 
e- FP4 + FPA x FRI 00500380 @ 
piddess tee Es EPS * (FP2eFPLx3)* FRU 00500390 gists 39 
FP& © FALSES 00500400 a0 
f] FOR I ¢ 1 STEP 1 UNTIL 3 DO FP1OLI1] © FPBLCIDG 00500410 @ 
__ FP19 « FPL3 00900420) 43 
FP20 ¢ FP2s 00500430 ' 
@ | FP21 © FR33 00500440 4@ 
ins FP22 « FP4} 00500450 : 49 
FP23 ¢ FP5$ 00500460 ‘4 
& FP24 + FP63 00500470 19 
i ___FP25 ¢ FP8t2) is 00300480 22 on i 
fe ENDS - 00500490 42 
@- INTEGER PROCEDURE FUNKCX4sX5)3. 00500500 «| @ 
INTEGER Xue X53 00500510 51 
BEGIN 00500520 5 
or X4 © X4423 00500530 :|@ 
54 5 # X5443 00500540, 64 
“FUNK ¢ X4% X5 00500550 55 
@ ENDS : : Pog i 00500560 co @ 
G7}: PROCEDUR ORDCRLeP Sek Bef AWES oF Ook Tek BaF GF 10) 00500570 5 
e 


FO ¢ FQ3 00500610 
F7 «© F23 00500620 
ee 000630 
F9 © Fa; 00500640 
Fic ¢ FS 00500650 
o teat aie 
PROCEDURE CALORD(G12G22631G4sG59G6sG72G82G9sG10)3 00500670 
VALUE G1rG22G3/G4>G53 00500680 
___ssi i INTEGER Gl G2e Gas Gus GS* Go» G7» GH» G9» GIOs 0500890 
BEGIN 00500700 
G6 + G13 boson 
ssc ag Ac cn SGT tes I Foal PE eee SO Eaten te 005 Pg eet eee 
4 G@ «+ G33 00500730 
GS ¢ Ga} 00500740 
is ns nna Nt tn ate GN OSM NE tl ee Sn oon token EE °1 5-101 2.10 
16 END} 00500760 
@” XL © 43 00500770 
[5 a rena omer Wor’ 7-0. Bh A a SE Nae ke ee OOS OOF BO e se ht ig ieee Ae aes 
8 AC1] © AC2] ¢ AC3] © 53 00500790 
@ * CUMMENT *##eeeweKLUGE CARD REMOVE LATER +exweewws BCL) ©13 00500800 
1 NO _ 00500810 
r CALL EVASSIGCNSAL 3)9X 3004523) 9FUNCCASX3eN)2 (XQ +FUNCCASX39N))XALLI» 00500830 
sie I X12 x2 THEN TRUE ELSE FALSE» Ns ae TEMPEIJs TEMPLeds = =00900840 
S TEMPC3], TEMPL4J}s TEMPC5SJ+Ts TEMPC7?)*Bs TEMPL11)» 00500850 
30 Pe TEMPC12)» sTEMPELS)¢ TEPC 1A ¢FEMPCA51¢NOT Te TEMPLI7))3 00500860 
SP _ FOR T © 1 STEP 1 UNTIL 3 00 TEMPCI4/) © BCr)g CORPO 
8 PR IF J > 1 THEN GO TO TAG ELSE 00500880 
£0) FOR 1 « 1 STEP 1 UNTIL 18 OO TEMPLI417) © TEMPLII3 00500890 
4 ‘ N « 23 QO0o54U090Q0 ss 
: Xi ¢ 33 00500910 
6} X2 ¢ 43 00500920 
i ROS NE. Tl. 90500930 2 2 
: AL1J]« AC2] ©AL3] © 63 00500940 
6 : Jo© +13 00500950 
P ste SAN OO Ue IC Dy a an ph 00500960 
H “TAG! X4 ¢ X5 © 43 00500970 
@ » CALORD(X4 XS sFUNK(X4 x5) oxGel» X9¥2s TEMPLSS I» TEMPL36)eTEMPL 371, 00500980 
p9 TEMP(38}», TEMP(391)3 00800990 
VALOROC Kae XS eFUNKCX4 > X5) sX441 0x Xoo TEMPLUO Jo TEMPLOLI>TEMPLAO I» 00501000 
@ | TEMPC43]5 TEMPL44))3 00501010 
2 FILL ANSEL*) WITH UCT2s UCTO» OCT1» OCT12s OCT124» OCTO» 00501020 ree 
a OCT7777» OCT?» GCT7s OCT7s OCT2+ ACTiO» OCTOs OCT24» 00501030 
@ |. OcTa» OcTO» OcT7» OCTie OCTS» OcT2* OcTar OCT3L> 00501040 
aoe OCTOs OCT7777» OCT7s OCT?» OCT7s OCT2s OCTIO» OCTO» 005 woe esas 
OcTé» CcT4s OcTO» UCT?» OcTis OCTi*e GCTS» OCTHe 00501060 
eo. OCT4s CCT3» OCT2» UCTI9s OCTO» ACTOS 00501076 
. : CVN ¢ 443 0050108 _ 
| PNO « 503 00501090 
m Ji VERIFY. , 00501100 
51 NO - cs Seen. i 0050 10 
*- PROCEDURE P5is COMMENT CALL BY NAME FURMAL PARAMETERS 4972302 00510000 
Ob NOV 20 1962 KMei 00510010 
4 BEGIN _ NS OORO 
| LABEL LAB*LABL+LAB3*LAB4>L 1412+ 1 A057 LABZ>L ABO S 00510030 
er INTEGER 8.020, EsF edad ; 00510040 
6P AB DMMENT RB ‘MOY ATER. MAY. 6. 196 003510050 


VALUE F2eFasoF Soh 1eF as 
INTEGER FisFeeF 3eF 4eF SoP Ook 7a F BeF 
ls Nita etek a8 sen en ot BQN ee oe eh Bor re eek Sg ee he 


FeF 103 


00500580 
00500590 


je OOO GOD. 
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(tS eee me ek ote a eS SS I eee ie ENG oC A Ne As site anes wt ikinnd Geto 6 OY ate to Ramm a @ 
BOOLEAN’ LCCB 0051006C 
ARRAY ARAE €1210)2 00510070 e 
_ SNILTCH  SWCH#LABJeLABrLABL»LaB2,iaB4s OBO 
PROCEDURE ABC C(C»ARY1)} 00510090 | 
2 INTEGER C3 00510100 3 1@ 
7 radia fie See 2 _ 00510110 3 
‘ BEGIN 00510120 ‘ 
s FOR Cec STEP 1 UNTIL (C#(10"C)) PO ARYILCI €C3 00510130 |@ 
| eRe een sete END ep hae a ees ee 50) 9 0 A! 5° ee gs 6 
1 INTEGER PROCEDURE DEF (GHJ)? 00510150 7 
8 INTEGER GHus 00510160 |@ 
a nt 8 
V0 DEF ¢ GHU+ (GHU=1)5 00510180 0 
i _ END} 00310190 /@ 
p__________ Real PRoceouse SPai (STPORMé ——__ SRS al ours aeons asec Oe OO oe men nl, cutie cease ante gh Oe th te ores estes eee Sls 
d REAL STFCRMS 00510210 ba 
i BEGIN 00510220 |@ 
: CC SPRI Ye 7 MOD STFORM 3 sg reer EO oy Be ur ee EE et ee tee ln eee, 1 
Ne ENDS 00510240 16 
7 PROCEDURE CALL (PleP2ePSeP4sP5 5P65P7 oPSoP9yP10 P11 »P12 P13 5P14,00510250 1@ 
‘ eer arest ey Sialic teeee ee ie nee 8 LA i > en ee ec Oe ete OOD 10 260 isos le il en od Nine ee be 
° | INTEGER P20 PS» Pér P10, Pla} 00510270 | 19 
po - «BBOLEAN P33 00510280. | 2 @ 
i ss Mis. His otal eno nels Re GOS TOGO a) 
: PROCEDLRE Pa» Pi/» P183 00510300 22 
z INTEGER PROCEDURE P93 00510310 73 @ 
ARRAY PALL: — aang Ee ONTO Gc canes se tet Sata st ed 24 
7. SWITCH P73 00510330 2 
pe LABEL P13, pias 00510340 2 @ 
piso iene Ae te RA cas Id ee Nat cess ePeees OI SA Ore fe Soe ea : 
Pe COMMENT P8 IS PRUCELURE ABC 00310360 . 
rz P17 IS PROCEDURE PRA 00510370 21@ 
po Noh os Seeded Oh ot lc cD AO CE ome TOUS Oo OG POO O i. pc dp hele poet bono Sel, ose terete es i 
: Po IS PROCEDURE DEF 00510390 31 
P11 IS PROCEDURE SPR1 00510400 | 
Hc sa eae GR Nyasa usc dm a Be ae oa ag Be os ee Sa oe ee ON Oi tes coos eds eae Nie ans 2 
INTEGER 13 00510420 0 
LAREL LHLl»s LBLes 00510430 3 @ 
Rie eetat eer Pees eee ae eT ae ETD OODLO4MC oe = 
“PY © TF p3 TREN (P14 al) ELSE (Pl +2)> 00510450 | ” 
FCR @1 ¢ 2 STEP 1 UNTIL 5 DO P2 ¢ P24043 00510460 . 4 @ 
eee ____F p3 THEN P3* FALSE ELSE p3« TRUES 00510470 fe , 3 
P&C4eaP4)s Poe PALAI]S Poe Patad + P5S 5 00510480 40 
P1L7CP3eP7eP4e5 LBL1)s 00510490 «|@ 
_ LALAIeuLile P9CPI0Is | 0021050¢ _ . a2 
Pi2¢P11(P12)3 : 00510510 | | ‘ 
COMMENT KLUGE CARD REWOVE LATER *e*etees PULL) © PALL] 3 00510520 4@ 
eo cots PPO pe PAS PS We ee ee ee OOS SOS 90. 2 ek 
LBL2tEND3 00310540 : 
PROCEDURE PRACBOL> Sno aRYetal)s 00510550 |W 
Ne r 
SWITCH SW3 00510570 : a 
LABEL LBLs 00510580 : i sf @ 
ARRA AR 3 i 00510599 ; 7 
BEGIN LABEL LABl» LAbas 1s 00510600. 
GO TO IF BOL THEN LAB ELSE LaB23 00510610 “| 
AB1t ARY(2J«5s GO 10 Uy3 00510620 5 
LAB2! ARYC2)© 108 00510630 ; 
Fs Lit GO TO Len 00510640 5 @ 
et oe ENDS. ae 00510650 
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eo; @ 
PROCEDURE PRC(LBLL»ARRY*BLL)3 00510660 
LABEL LBLLS 00510670 @ 
ARRAY —ARRY D1) ¢ OB nec cee 
BOOLEAN BLO} 00510690 
@ BEGIN . poaenreo 
a —— aA 00510710 
GC TO JF BLO THEN LAB3 ELSE LaBas 00510720 
rd) LAB3% ARRYL3]© 5% GO TO La; 00510730 
fois Boe AB4: A ade 10 240740 = = 
La! GO TO LaLL 00510750 
e@ END3 | 00510760 
DEFINE Al = (23/2) +(Es 1)a3 00510770. 
B ¢ 233 LOORe TRUED Ee 5 MUD 33 Fe103 00510780 
ee} COMMENT CLUGE CARD REMOVE LATERS ARAELL) « ARAELLI ; 00510790 
12 COMMENT CLUGE CARD REMOVE LATER» THIS wAS INSERTEC TO GET ARUUND 31 sees Spates 
n3 wekaexe PRESENCE BIT FOR PROCEDURE PRa AND PRO WHICH ARE MARKED ABSENT 00510810 
ry i tetene IN THE STACK FOR PREOCEDURE CALLe MAY2. 19633 00510820 
5 __. PRACLOOB» SWCHs ARAE»SPECLABIIS COMMENT *** REMOVE MAY 6 19635 00510830 weer eats 
16 SPECLABL? LOOB+TRUES PROCSPECLAB2,ARAE+L003)3 CUMMENT REMOVE OATER: 00510840 
"7 SPECLAB23 COMMENT REMUVE LATER MAY 6 19633 00510850 
9 IF TRUE THEN LAB3 ELSE LABS» IF FALSE THEN LAB6 ELSE 00510870 
@,r SWCHE5J» PRA»PRO)3 00510880 
Pp ¢ ; Me oe ofa We ND te noe ts 
TEMPCL]©als TEMPL2]eBs TEMPLC3]+REAL (LOCO, (4721)); 00510906 
@» FOR H¢ 4 STEP 1 UNTIL 10 OU TEMPLH] © AKAE(H)3 00510910 
eae _TEMPEditdecs TEMPpi2leysTEMPLizlear gered sTeMPeigdeaRaeci); 00510920 
TEMPC1S]¢ FS TEMPL16]¢ ARAEL3]3 TEMPLI7]© G3 00510930 
Or LABt LABL? LAB2? LAB3? LABG! 00510946 
P7 _ LABOt ABS3 Ed al PP ra AE ae ee 
Pe FILL ANS C¥) WITH UCT1010000000000144» OCT45» UCTO» 00510960 
Or OCT4sOCTS» CCT6» OCT?» UCT1IG» OLTi1» OCTi2» 00510970 
i eee Cees T4esOcTioOs UcTi2s oo , 7e OC ; 10980 
CVN ¢ 473 00510990 
@» PNO « 513 00511000 
° So te VERY et BOS AD OUD ee nee Sener teee 
4 END 3 00511026 
@ >: PROCEDURE P52} COMMENT THE READ STATEMENT IN EXTEKDED ALGOLS 0052000C 
ps ase GHD Ni ct ee a ar er Sy a Ue a hl ee ee SOS BOOT Oy etd vino ede decd ceaat toned meee 
57 FORMAT OUT READWRITE ( X10» "THE READ STATEMENT OF ALGOL"» 00520020 
@ » “WITH ALL ITS VARIOUS CONSTRUCTS OF)» 00520030 
ps ______SECONDLINE (X10» "REaD»s SPACE» ETC HAS BEEN WRITTEN AS A SPECI"00520040 © 
r » "AL ROLTINE BY JOHN SKELTONe")» 00520050 
@ i THIRDLINE (X10» "TO TEST THESE ALGOL CONSTRUCTS THE 1/0%sX41 00520060 
i ge es Sot aeeagt | 
FORMAT OUT FIRSTLINE (X10»"TEST PROCEDURE NO, 052 4,8"» 00520080 
e 203 EXTENDED ALGOL READ STATEMENT")3 00520090 
: WRITE CFNOKEDBLIJ>, SCHIST 00520110 
@” WRITE (FNOKCOBL)sSECONDLING)3 00520420. 
7 WRITE CFNOKEDBL Js THIRULINE )3 | 00520130 ae 
_ fs END} 00520140 
Or. _ PROCEDURE P533 COMMENT THE WRITE STATEMENT IN EXTENDED ALGOLS 00530000 
51) BEGIN COS300i10 
bY FORMAT OUT FIRSTONEOX10> "TEST PROCEQURE NO, 053 4.8"» 00530020 
@r "43.3 EXTENUED ALGUL WRITE STATEMENT")» 00530030 
wRITENOTE (X10s"The ARITE STaTEMENT OF ALGUL WITH"» 00530040 
BS "ALL ITS VARIOUS CONSTRUCTS OFM)» 00530050 
@ |: WRITETHO(K10+ "WRITES SPACESETCs HAS (BEEN WRITTEN» 00530060 
by age "AS SPECIAL ROL NE BY. woth SKELTON, *. .. 2053007% 
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eo; 6} \e 
wRITeL ATO Xive"fu TEST TRESeE ALGUL CONSTRUCTS THE» 00539008C 
e " T/0 rACKAGE 1S TU BE ustuT); 00530090 ® 
eo WRITE CENOK EDR SE ILASTOREDS pote Sot Sag OOO US cae sean 6 etree cee Soe 
WRITECFNOKLOBL J »WRITENOTE)3 00530110 1 
@ WRITE CFNOK(OAL J» WRITETWO)3 00530126 |@ 
tosis RE VECRNOKU DRL JeWATPEUAST IS ooo te a OOS IOL IO oe ee ee 3 
ENDs 00530140 4 
e PROCEDURE P553 COMMENT FILL STATEMENT EK 12 NOV 623 00550000 3|@ 
Gea MIN oe, ent hres AES ate cee hee eee Sh nd me asia ce OM IU ONO or steed ie estes ee Phe 6 
INTEGER ARRAY INTCLIt2]3 00550020 
] ARRAY Ar Be De RELsals CLS)» MATRIXC1335133)3 003590030 |@ 
INTEGER Ts ae V3 og ere’ Sesto Ja 2 00880040. 8 
STREAM PROCEDURE FLAGCHK (UUM1, DuM2s DUM3)3 00550050 
. a BEGIN 00550060 |@ 
Sad iene oD ee tn Sas EE al Ne flesh Dae al A toes ta een OE ieee aa lg sap ee oe ete nt ee a 
DI*DUM33 00550080 : e@ 
@ Dl¢ DI473 00550090 M4 
wil es, Weta ER STM ENG OS 0 SEY sa at ot a ee ee itn oo5s0j00. i ist "9 
SI ¢ DUM23 00550410 16 
eV ae (SB THEN Se 1 SETs 00550120 |@ 
SE DUM3g Sle SIs 73 a a th ee I oe OO Mn im, ce cet St ot or ag "9 
sarenTtiyy: IF SB THEN DS¢ 1 RESET} . 00550140 
@ DI*DUM23 If SB THEN NS¢ 1 RESET; 00550150 
palate ts cat as WE NOG Oa ced ea Sate ear OS nero aa Meee, at ee Sos pci OTN TRO eel ecs 
FILL INTEC*) WITH 5497558438875 "5497556138873 00550170 
@ FILL AC*] WITH 4,3863> 7,80563 00550180 
ce ETL BEL TH ME Re gg 50 80 | 
FILL CL*¥) WITH 1,0» "THOMs O,3619050; 00550200 
@» FILL MATRIXCi+*IWITH "DIA" 20003 00550210 
EL MATRIX Qe) WITH Oe "GONZO; 0 50280 | 
FILL MATRIXC3s*) WITH OF 02"AL"S 00550230 
@ FILL DL*)] WITH OCT777» 1114, 00550240 
po RED WITH OCTAOCOUOO00G000G0O), uctT7777777777727777723_ ~—s 0550250. 
Ve03 00550260 
@» FLAGCHKCRE1IsRC220V)3 00550270 
Paar Sa etc eas MID CGS a et ts ea ee ee re ar ROS RO Sect, 
TEMPC24) ¢ RO2]3 00550299 
@ TEMPL25] © V; 00550300 
Sc ta Ne ND Fa a ar Pe UO OO I os les 2 Sh 
7 TEMPE2) ¢ INT [273 00550320 
er TENPE3) « ACiI3 - 00550330 
ca nt ee dt i MM tt al is le le es ee ene OO OO SAO. ut. Sunes 
40 TEMP65) « BC1)3 00550350 
@ | TEMP(6) ¢ 6213 00550360 
2 _ FOR yed STEP 1 UNTIL 5 OO TEMPLi+e) © Cll); 00590370 
:  TEMPC12) © or1)3 00550380. 
@ TEMPL13] «06213 00550390 
ees FOR J ¢ 4.STEP 4 UNTEL 3 DO TEMPE +13) ¢ MATRIXCLeu)3 00550400 _ 
6 “FOR J ¢ 1 STEP 1 UNTIL 3 DU TEMP[(U+16)] © MATRIXE2Q04)2 00550410 
r ey FOR y ¢ 4 STEP 1 UNTIL 39 LO TEMPE Y+193 © MATRIXE399)3 00550426 
FILL ANSC*) WITH OCT7777777777/77% UCT 2OO7777777777777 00550430) 
: OcT?2247 1745413117 OCTO277 47624362477» OCT 252466? ~~ 00550440 
OF OCT422530s OCTis UCT636646, OCT3» OCTOs GCTO»s OCT777»  ~ 00550450 
61 OcTi157» UcTt2u3i2i9 UCTO» OCTOs OCTOr OcT274645* OCTOs, 00550460 
OCTOs HCTO0, OCT2143» UCTl» OCT3???TT77777T7TT7T7» OCT603 00550470 
r 3 CVN « 253 00550480 
PNO « 553 00550490 
VERIFY | 00550500 
@ END} 00550510 
oF PROCEDURE P5S73COMMENT TYPE DECLARTION UWN3 Ee as ~ 00570000 
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@ 
BEGIN 00570010 
@ INTEGER INDEX» TIMES LABEL INITIAL : 00570020 
Fist ate ee ase ste gt es EM ee ec NE ee ae es OOO Cad, 
INITIAL! BEGIN 00570040 
a] OWN REAL FLOATONEsFLOATWOS 00570050 
_ OWN BOOLEAN TRUUSFALSSS = _.00570060. 
OWN INTEGER ONEs TWUs THREES 00570070 
e@ OWN ALPHA ALPHs BETAS 00570080 
Se ae noes TP TM eNO STO NO Ges se ee 
BEGIN 00570100 
® FLOATONE¢$3 TIMEeTIME +13 00570110 
esta Ph ; ee eg Set ee pe BUN FOG DG ew os es 
UNE © 13 00570130 
eo" ALPH « "ABC" 005701440 
eerie ney re ne ee NG ene DF Se a ae a a eee oder e ene eRe ee 8 a Wo, Co 
"9 TEMPCINDEX}) © FLOATONES INDEX # INDEX + 43 00570160 
@ TEMPCINDEX] « REALCTRUUD3 00370170 
So aaa Se TEMPLINDEX + 1) « ONES 0570180... 
6 TEMPCINDEX + 2] © ALPH3 INDEX © INDEX 43 00570190 
. ENDS 00570200 
Behe ant Sper al Soe Sele ae ae ss lala eS ets OS L02 410 .c.sscs 
OWN REAL FLOATONEsTRUU*ONE*ALPH 3 00570220 
FLOATBNE ¢ 1.03 00570230 
ONE ¢ 243 00570250 
ALPH © 29 00570260 
esi oee se coo ENDS oe ._ 20570270. 
IF TIMEs2 THEN BEGIN TIME*TIME4+13 GO TU INITIAL ENDS 00570280 
FILL ANSC#] WITH OcTS* UCT1» OCTis OcT212223» 00570290 
Stee tits lt Sa cin eter aR De et » 6 , 33 OOS 70900 p00 2 oo as 
CVN « 83 PNC © 57 3 VERIFY 00570310 
ENDS 00570320 
_ PROCEDURE P605 COMMENT 5,2,3,3 TYPE ARRAY »HARRYs NOV 27,5 = = = OG OGOOOO 
BEGIN 00600010 
ARRAY ONEsTWOL1810)3 06600020 
we REAL ARRAY THREE sFOURSFIVEsSEXCitSs2tedis CC HOONIN 
INTEGER ARRAY SEVENSEIGHTLIM5]¢NINECL EOI 006v0040 
BOOLEAN ARRAY ELEVEN( 121023) ; 00600050 
cee ALPHA ARRAY TWELVECA210)5 i eran re ear ert ee ______— 00600060 | eee 
INTEGER I-N3 BOOLEAN Be GOLs 00600070 
1¢43 NelS3 Be TRUESBUL © FALSE 3 00600080 
; __ BEGIN COMMENT DYNAMICS 00600090 
OWN REAL ARRAY R1iC is 33 NSD 00600100 
OWN INTEGER ARRAY I1 EL [It [xX N J5 00600110 
OWN BOOLEAN ARRAY Bi CitIF B THEN I+N ELSE N@9 J} 00600420 ; 
OWN ALPHA ARRAY. Aly AQsA3TINI0) 3 00600130 
ONECi) © 43 00600140 
THREECTs1)+13 900600150 ©. 
SEVENCI +1) © NINECI+4] ¢EIGHICN@3x]] ¢ 23 00600460 
FOR I « 1 STEP 4 UNTIL 1024 DO ELEVEN C1) « B 3 00600170 


AMCY 


TWELVELLJ© "HARRY" 3 | 
I # 43 RIC] © R418) © 1104) © 14060) © 43 
Biligle TRUES 
oe "HARRY "2. 
TEMP(1]* ONECLIS 
TEMP(2)¢ Mae a 13 
EMP # § 
TEMPE 4 J¢ @EALCELEVENTS 193 
TEMPES)© TWELVELI13~ 
MPréje zk Bal 


00600 
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@» COMMENT SB IS 43 | 01180270 1@ 
9 poet are, te eg IF SB THEN BEGIN BCTALLY © TALLY+73 IF SB THEN 01180280 29 
JUMP OUT) ENDS E*TALLYs 01180290 “9 
@ | TALLY* 03 01180300 i@ 
a hehe sae Soe MMEN SB JS 1s 180 7 _ 42 
“3 | IF SB THEN BEGIN IF SC ="H" THEN BEGIN SleLoc a 01180320 aa 
Ou 3 Ol*Loc R$ IF 1 SC = DC THEN TALLY*TALLY+8 END 01180330 «®@ 
i a END TALL Ye TALLY 403 Foe TALL YS UU RNBORHQ Be) 
SIleLOC Ad DI*UUK3 DS* 6 WDS; 04180350 5 
@ + ENDS 01180360 |@ 
ee SBCHECK(TEMP([1])3 ee 04180370, : 
FILL ANS(*) WITH OCT2e GCT3* OCTS» UCTé* OCT?» OCTiIs 01180380 4s 
@ |: CVNeSs Pe, a | 01180390 | 1@ 
! PNO « 1183 ae ne 01180400 a : a 
52 VERIFY 01180410 5 
@} ENDS 01180420 A® 
_ PROCEDURE P1193 COMMENT STR PROC TUGGLE STATEMENT 5"12%13,7 KMy3 01190000, 7 , 5 
55 BEGIN ce 01190010 | 5 
@ | INTEGER ONE» THO»ZERD»SIXs , 94190020 oe hed 
e __STREAM PROCEDURE TESTTOGGLECARAYIN, INARAY » ONE» ZERO» THO,SIX)3 01190030 7 | 
e 


Data Documents/Inc. 


5 . 4, 2 . a E 55 > By - 


| ied as ia iia shes aa no tran ea BIO ee ee ste pcake Aaa 
VALUE OQNEs ZERO» TWO» SIX} 01190040 
BEGIN LABEL Li» EXITRIN® Les» 133 01190050 
baie Seta ae ee Ree eee ON RG Cg en La gt a I a ah, Mn a oleae te PG OO O.s cece Oe @ lid sea iiatn lesan ie k sensp ety once et te ake 
1 TALLY+*O3 01190070 
2 OLleLUC AZ} DSeB LIT "ANZ 01190080 
3 wp eet a a ae SI and aa ee pe ee eS OOOO: oa ee 
: IF SC= "A" THEN GU TO Lis COMMENT SET TOGGLE TRUES 01190100 
5 GQ TU EXITRINS CUMMENT TOGGLE WAS NOT SET TRUES 01190110 
: sees pa a tattle tau es oO NA Ba es tee pr es hy a POY AOS teen lea say ew 
7 Lit IF TOGGLE THEN D1 ©¢ ARAYIN3 01190330 
4 IF TOGGLE THEN DI « CI+47; 01190440 
: Ho TOGGLE THEN Sleinc ag ia Sts NE PROPS Oot te. a Dae 
i IF TOGGLE THEN BeOls 01190160 
i IF TUGGLE THEN DS#1 CHR; SIeSI=13 01190170 
be iin BEd teers bicttchdlin yo at aig ae Ie GG LE TRE NODS 8 CONES Wiss ood ese a eae OLIV 0180 6c xtc chee ee cee Ss 
| IF TOGGLE THEN DS* ONE OCT; 01190190 
bei IF TOGGLE THEN D5*2 ADDS COMMENT TOGGLE IS FALSE 01190200 
5 eee eet anenncee LF TOGGLE THEN GO TO EXITRINA SteStw33 = oy190910 
be IF SC="Aa" THEN GO TO L2 3 GO TO EXITRINS 01190220 
7 L2! COMMENT TOGGLE IS TRUES OL © D1l+43 01190230 
i ee ee eh F TOGGLE THEN DS ¢ TWO 2ON3 ate etal oes 2g OTT IO BZ AO et gee OG at 8 osc 
‘ IF TOGGLE THEN OS* 8&8 LIT "Bm; 01190250 
i IF TOGGLE THEN SKIP 42 DB; 01190260 
y dees we ah ead ; A Sp tae ead MN AIOE O66 cas toe a ess 2 Set Shin aoe: 
r IF TOGGLE THEN BC TALLYeTALLY4#1)3 01190280 
3 CeTALLYS SI*LUC C4 DS*1 wOSs SI*LOC A; 01190290 
OEE Pee TRE TORR SOE. a odes Pie ol hems el” Uy en Te Oh a ern = So See et GREET AIITS 3 Fs BL 1° he 1 91 cee eae esa ay ao 
IF TOGGLE THEN GO TO EXITRIN;3 01190310 
CeTALLYS SyeLOC C4 OS © 1 wWOS# SyeLOC As 01190320 


‘ TF SR THEN GO TO EXITRIN: 
‘| IF TOGGLE TREN GU TO EXITRING 
L33GO TO EXITRINS 


IF SC= "A" THEN GO TU 014190340 


mee 5 i G14 i be fe Peon enree eee 


01190350 


Wat 58 TYR" L ND; GG 
DS « B LIT "C™ § OS © BLIT "OD"; 
Lit. SreST+33. 
- SC ALPHA 


THEN BEGIN IF TOGGLE THEN DS¢8 LIT 012001330 


He cen TF TOGGLE THEN BEGIN 3C JF ScS"E™ THEN BEGIN IF 03190360 Sieg Ba tad 
TOGGLE THEN JUMP OUT ENDS IF TOGGLE THEN TALLY ¢73 01190370 
JUMP QUT) ENDS Ce#TALLY# SIeLoc c# OS*¢1 WOSs 01190380 
Pi ide caste Coan a ees LNW EN a Fn ean gd ig ec he ey sSeilede ts sash te ae Hie OE OS cr. fol e  utieseel cite eg! 
ONE © 13 TwO © 23 SIX ¢ 63 ZERO © O35 01190400 
TESTTOGGLE CTEMPC I)» TEMPL2cI»ONEsZERGsTWOsSIX)S 01190410 
se Sn oats Dac ee Oe Oo eB ae ts a a A tN i oe OO, 7 is te a Soe Be 
FILL ANS(*) WITH OCTais OCT2121212121212121» OCT1» 01190430 
OcTO10O1000000002020, OCT 2222222222222222» 01190440 
TTT OCTIOe OCTOr COTIO» OCTIO4 04990450 
CVNC1O3 01190460 
PNO#1193 01190470 
Oe a 2p ee a oe 094904680 

ENDS 01190490 
PROCEQURE P4203 COMMENT STREAM PROCEDURE SOURCE FOR ALPHA TEST 012090000 

9 12919 Be FEB 641963 KMS 04200010 
BEGIN 01200020 
STREAM PROCEDURE TESTALPHACARAYIN)3 01200030 

a a a ye GN r See eeenen 
LOCAL A} 01200050 
LABEL Lieber aelas : 04200060 
DIl*Loc AS DS+B LIT "ABC#LO9" 3 TaLltY+Qs 04200070 
SI*LOC As DI © ARAYINS 01200080 


IF SCs ALPHA TREN BEGIN IF TOGGLE THEN 0Se8 LIT 01200090 


01200100 .—sss. 
04200110 
014200120 


at et este 
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am, 4 zy 4, zi 5 ' 


"A"; OSeB LIT "BF GO TU L2 ENDS IF TOGGLE THEN 01200140 
NS ¢ B LIT "CS OSeR LIT "D'S 01200150 
v7 t +33 Be Seca yh ote i gt PAOLO ok 0 
IF SC#ALPHA THEN BEGIN IF TOGGLE THEN 0S¢8 LIT 01200170 
WANS0S¢S LIT"B"s GO TO L3 ENDS IF TOGGLE THEN 01200180 
a "CNS DSe "oe 20¢ Dante Snr Oe eter 
L3: SieSlel3 01200200 
IF SCEALPHA THEN BEGIN IF peer THEN DSe¢g 01200210 
it} "5 S¢a T " " T . 5 es ae eaes Mince att dats 
THEN DSe8 LIT mens0ses LIT Os 04200230 
L4t ENDS 01200240 
ca I a a I OD Soren 
FILL ANSC#] WITH OCT21i21212121e121215 UlLT2222222222222222» 01200260 
OCT242424e42424ab24, GCT2121212121212121»5 01200270 
_ a Scone ET 222222622222220229 UCT242424 24242424245 = 200280 
CVNO63 01200290 
PNO + 1203 01200300 
eempeiite. Je NEE EY dr et Sadie eet Rn ee __04200340 
ENDS 01200320 
PROCEDURE Pi213COMMENT FOR STATEMENT sUEiEREE LIST ELEMENTS; 01210000 
eae - | SCE C, Seen meee emer Ds SB GP oop a Slit RE $042 1004 0 oss oe eee 
REAL EaFe C3 01210020 
INTEGER DeGeb3 01210030 
BOOLEAN eae 01210040 =e 
INTEGER PROCEDURE SEVEN (FML)3 01210050 
INTEGER FML3 01210060 
BEGIN SEVEN® FML MOD CFML+5) ENDS 02210070 
E* 15.53 Fe 7,53 Ce 2,03 Ae TRUES Be FALSE 3 De 2732 3 014210080 
Gt 23 He 43 01210090 
te TEMPrije 15% TEMPL2)}¢ 33 OO cect atone ate 
FOR Ce TEMPL1]+ TEMPL2}* SEVENC LO) s"AB"+ “Ats 5 DU BEGIN 01210110 
Ge Gei3 ee C+5 END; 01210120 
aca ere FOR Ce ee a) Il fs i ee OLE POL AO. se ee 
DeC44s2) + De er 3] STEP O, Toe 01210140 
UNTIL TEMP{LLI*6s SEVENCE)+2 STEP "ag™ MUD “a” UNTIL "A™ = 8 » 01210150 
Reeth PVM eerC ss) > Jae 1 <0 cana ak © 3 "8 1 Ore ea re ee re a ete Nae ETEY #1 Cr"-0) 91 8-6 Dee ene 
20 pO BEGIN Ge Gtis TEMP [G)e C END3 01210170 
FOR Ce Fe— STEP C#F) WHILE G< 165 SEVENC2) x (#4) 01210180 
WHI A OR Bs 8 01210190 
STEPC*F) UNTIL = (SEVENCO)) DO BEGIN Ge G13 He Hol 01210200 
Ae BOOLEAN (hs C4531))3 01210210 
__TEMP SEVEN ¢C) EnDg 7 ERB 20 
FILL is ch WITH OCT17# OCT3» OCT27s OCT1i7» OCT2450> 01210230 
OcTi2» OCTlus OCTil» OCTi0O» UCTit» 01210240 
iets ; OCTLO» OCTII* OCTI?» OCTe2r OCTZ2000000000000002001210250 
— OcTZ2000000000000005, . OcT2000000000000002. 01210260 
OCT2Z000000000000002, OCTIOs 01210270 
eae seen OCU es a 8 oe eet ey 1 ee OP OREO el 
CVNe 20 3 01210290 
PNO® 421 3 01210300 
VERIFY 01210310 
END? 01210320. 
PROCEOURE dees COMMENT PRECEDENCE OF LOGICAL (OPERATORS EK 02220000 
NOV. 623 | Qre200i9 
BEGIN 014220020 
INTEGER Xie XeenS Kay. 01220030 
BOO AN pay Ree ra A'S AO? A? 04220040 
Xi * xX2 ¢ ‘3 es 04220050 
X3 « 33 01220060 
A & 4: Lee ras 


Data Documents/Inc. 


a, ry a * 5 5 2 


: 


_IF At IMP AS IMP AG THEN TEMP(?7 ELSE TEMP [7] 53 01220160 


gt O06 DAO nen phe es 


Al © A2 ¢ AZ + AM © TRUE 01220080 
AS + A6 # A? & FALSE 01220090 
a BR Riad ach cat aie NO he ee. LEN AEM RL Der Se CRM C8 Ve 5p ce oaet h eee OLE OL OO: 
IF Xa>xl+x24x3 THEN TEMPL2}¢ 5S ELSE TEMPL2] « 73 01220110 
IF Ai OR AS AND AG THEN. TEMPL3) ¢ 7 ELSE TEMP[3] «+ 53 01220120 
Pou AL QV AS IMP A2 OR AG AND AS THEN TEMPCO)67? ELSE TEMPC4J*5501220130 000 
IF A6é EQ@V a5 AND A@ THEN TEMP(SJ¢ 7 ELSE TEMP(5) ¢« 53 01220140 
IF X4 < X3 EQV X1=X2 [MP Al een Penne 39 ELSE ee. 73 = =©01220150 


01230030 


IF paxe OR NOT X1i#X3 AND AD ne rv aa A5 UR TEYSERTISE AND 01220170 
NOT AS IMP AY AND XJ2X2 THEN TEMPC8] © 5 ELSE TEMPL8] ¢ 73 precore 
Kat eta a _IF X4<x3 £QV NOT AL IMP X13X%2 Of NOT X3>X4 THEN TEMP (9) ¢« 5 0432201390 © 
ELSE TEMPL9J] ©« 73 ~ 01220200 
IF NOT AS GR X4«K«X14X2 [MP AS EQV X1L=SXZ2 IMP NOT X4«eX1 AND A2 01220210 
ithe eiethind aoe eve TE MOL OD: eo L SES TEMPE 10 6 tg ann OT ZCU2 20. 8 
IF NOT X4>xXi EQV X4>X1 AND AS IMP NOTCAL OR AS) THEN TEMP(41] 01220230 
#5 ELSE TEMPLIi1)] « 73 01220240 
eee IFAS EQV X4>X14xX2 OR Al IMP FALSE THEN TEMPCi2) « 7 ELSE 04220250 . 
TEMPLCi2l« 53 01220260 
IF Ag QR AY AND A6é AND NOT (A1 OR AS AND AB IMP X4«X4) THEN 04220270 
a et a tect pies dtd ee « 7 SE_ TEMPE13) ¢ eee 91220280 
IF NOT Al EQV X4exX!l OR CAL AND TRUE) AND Ao GR FALSE THEN 01220290 
TEMP(14) © 7 ELSE TEMPLLA4le 53 04220300 
FILL ANSC*) WITH OCT7s OCT?» 7 
OcT7s#0CT7+ ACT7» UCT?» Cct7» OCT7» Uct7; 01220320 
CVN « 143 04220330 
ee oe NO 1225 Po hon ty Noh latlns hs net ote a en thn tO OBO REO ose og ee a hy 
VERIFY 01220350 
END3 01220360 
PROCEDURE P1233 COMMENT Go To STATEMENT (PROCEDURE) EK 20 DEC 623 01230000 
BEGIN 01230010 
LABEL L125 LLP* Lue L» LOS» LO2s 01230020 
INTEGER Tsde Ke SUMs2 Be Ce AS 
BOOLEAN. Te TZeT3eT4eTSeTGeTleTaeTEST3 01230040 
PROCEDURE PRIC TeJeKr SuMeBeCoAsTo Tee Tas Toe Toe To TESTe 01230050 
Meche emheeetio, cacti Ao Qj» LLP ; eitse Stet ali ogt Bite ee OPO OOO a oe ay hs 
INTEGER ToJUsKeSUMs be Ce AS 01230070 
BOOLEAN T » T29 T3e Tus TS5s Tle SESTS 01230080 
eee ae ABEL  LO2, LO3» LLP» Ls 01230090 _. 
BEGIN LABEL Lis 01230100 
Li! BEGIN 01230110 


_ RABEL LE Do LL Ze LL SrL LG oL SOLE SPLLNsL eb 3eLMSoL LOS 01230120 _ 


If TEST THEN GO TO LLL3 012301330 
LL2s IF T THEN GO TO Le} 01230140 
sa ES OF 00 ee 
GO.TO IF I< 2 THEN LL2 ELSE LL4s 01230160 
Lea: GO TO IF 1<3 THEN LL2 ELSE LLS3 01230170 
hee ee 53 IF [<4 T 33 04230380 —_ 
GO TO Les 01230190 
Let IF y < 10 THEN GO TG IF SUM 2 kK THEN LMS 01230200 
3 3 3 8 
LMSt J & J+} : 01230220 
IF Te. THEN GO TO. phe ds 01230230 
FOR C * 1 STEP 4 UNTIL 10 00 SUM ¢-SUM + 43 01230240 
GO TO Lzs 01230250 
LL6O$ BEGIN | pie ste80 
. LANEL LNNoL TN LTTS 01230270 ns 
REAR ODBSUMS ~~ 04230280 
IF 73 THEN GO LNN3 01230290 
“ OBSUM * SUM + SUM. 01230300 
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TEMPEBI «© DBSUMs GO TO LTT3 01230310 
LWNS TEMPLE) ¢ "BYPASS"; 01230320 
See ee eae -_T4 <1 6 el OI cee Seen © Ee 8 10% 1: 9 
LTT: GO TO Ls 01230340 
; LTN3 01230350 
EN __ 04230360 0 
L3%? BEGIN 041230370 
INTEGER X43 01230380 
Seed ta reece ee ee ee NS GO es ge OE SUI OL Sf. s 
Xi © As 01230400 
IF T5 THEN GO TO LLNS 01230410 
en TE MPEXD] © AR _ 01290820 
GO TO LLN; 01230430 
ENDS 01230440 
. . _. Cee ed Raia Wed a tik So A ee es ON DONS Ot EG eo eciaiaiedn ema 
GO TO LOes 01230460 
LLNS 01230470 
Bacal aed ty Rasta Hans Me INE Bi EN BAe ar ig ee Oe Sete eae 8S Ce et eg ee BO occas ee oo Sa ce: 
T3 ¢ T4 ¢ T5 © TRUES Be 73 04230490 
TEST «© T ¢€ T2 © T7 © FALSE; 01230500 
ee GO eS MK GSA OF ee eee ee EE Rtn. © os L7-20c 1 Lz a 0 Ly en Ee ee aes 
PRICLedsKe SUM*Be Co Ar Te T29T Se THe TSeT7oTESToLOQ*LOSP LL PALS 01230520 
TEMPC5) ¢ SUM; 01230530 
Set asian es VEST Sire nee Une STE SOFo Er OTE eS Tiar? SOON cir TIESTO ee NCI EVENS OES SUT OTe eR Oe TY ¢ "CLD 2 Reece ee Cee EE 
PR1 CI edeKeSuMeBsCeAs Te Ter Tian Too Tio Too TESTa bh Oc eLUSoLLP ol 23 04230550 
LO28 TEST « T3 ¢ T5 © FALSES 01230560 
peered TRUE Site ia a a Feat cn ae Ee ss Mer wien SO SOS FO s coc tad. oe Rack tee ae es eh ee es 
B ¢ B3 01230580 
A + 93 01230590 
ee he tet PRi clovsKsSUMsBoCoAp ToT 2 Tso Tho TSo TP eo TESToLOPeLOBLEPoL)s 04230600. eer 
TEMPC10] © "TENS 01230610 
K ¢ 10223 01230620 
ST ag Ne BN ha at a alps mS eh lace cere rire ate eng a a a eee toe ata ee AS 
PRL CIedsKsSuUMeB oC oAs To Testis so Toe TS a T7e TEST eb O2eLOSeL LP oh 8 01230649 
LO3%’ TEMPLi1)] « "K300"; 01230650 
ceo NN a a a I BN Bt De PI BW OO vase tinnt nn cud at ee oe 
T2 © TRUE 01230670 
PRL CLlodsKsSUMsBeCoAsTsT2n Tin TY eT5 a Tio TEST oLO2sLOSsLLPol D5 04230680 
CLEP TEMPE YC) © "TO"; 01230690. 
wv & 403 01230700 
T3 © T7 © TRUE 01230710 
PRL (Ta Je Ke SUM Be Co Ao To T2eT3e T4e TS eo TP TEST ol L OP LOSeL i Pel ys =—604230720 
3 TEMPL13) © "LUCKY" 01230730 
FILL ANSE) WITH OCT1is OcTes OCT3s OCT4* OCT144» OCTO36263» 04230740 
o 7 r. PA i . ’ « 
OcTite OCTS32545» OcTd42030000. 04230760 
ocTé630e8 0074364234270; 01230770 
_CVN « 1433 ' Mr a! 
PNO « 1233 01230790 
VERIFY 01230800 
ND Coat Pass Se Se, 
PROCEDURE P1243 COMMENT GO TO STATEMENT (SWITCHES) EK 47 DEC 623 04240000 
BEGIN : : wt 01240010 
~ABEL Liat pL ueb Sol Gel Fal Sol PeobLiOsLileLi2reLideLiSeLigelLizs . 01240020 
INTEGER X1>XeeVisYes TeKeLli 01240030 
SWITCH SW2 FORWARD 3 01240040 
SWITCH SW3 FORWARD 3 01240050 Eas 
SWITCH SWE © Liel2elL gs Sw2C lis SweCy2es7 Jeb OoL7 el 153 01240060 
SWITCH SW2 ©. L3eL4oL Sr Shi CXL eSWilx2)e Lark GeoL ios 01240070 
SWITCH SwR ¢ Lids IF Ie THEN Lit ELSE Li2sSw3l4]58 X2e3]13 01240080 


& 7 : 
Yi e 13 01240090 
e Y2 ¢ Y43 01240100 q 
SENET 6 Ge on 2 ee a Ian ON Of, OE on suet naa Poet ay ey ate a Pe, 
f X2 ¢ 53 01240120 
@ |: le kK « 23 01240430 1@ 
Sf er ces SNA Mi tN ns OO ee eee 3 
4 Lit  TEMPCi) « 13 01240150 4 
@|: L2! GO TO IF Y1= 1 THEN SW1E3) ELSE LDS 01240160 |@ 
8 se escteti ts Rae be MM Oe Oh ie oe tarts eee ed hee pe Ee ate Sy, Ped 9 O20 Ace 8 
7 Yievaeus 01240180 é 
@ |: GO TO L23 01240190 /@ 
9 Meat SE Se a ene ae a tN rw en OPM BOO re Cie Be She 9 
po INTEGER X1>X23 01240210 ng 
er KL # 43 01240220 /@ 
2 aaa et A eS IG i oo Oe a, cee Ec Stil el A ODIO es, elt, Same 12 
60 Ta sW2txi1} 01240240 
@}- END} 01240250 
ene 2 es ee a Oe ae 240200 
8 GO TO SW2[xX242]3 01246270 
Or L9$ TEMPL4) « 4; 01240260 
ra eee een Oe So eee ae ee ene es are ee ee TE | 01240299 | 
2 Liat Le L443 01240300 
@ GO TO SW3fL33 01240310 
ka LOE TEMPOS 2 55 ene 01240320. 
GO TO Lia; 01240330 
@: Lil! TEMPL61 « 63 041240340 
P Fe Sa ee De a a8 Nace ee tron Boece ee A oe aad 04240350... 
P GO To SW3EL33 01240360 
@ - Lig! TEMPC7] « 73 01240370 
gp Ses GO TO as ee seg spiee SO POO FB Or a ok ou a, 
ee L153 TEMPLajea3 01240390 
'@» GO To SWICCX171))3 01240400 
ni Boise de EB ri aietaarala tin EE MING. Se cael ec hs et Spe a shee COG hg pee See ee aoe neem aes hs fe 
‘ INTEGER X23 : 01240420 é 
s@ X2 * 103 01240430 =| @ 
a ge rte Neen eee nc et ee tp eens She tc athe en O1240440 8 
4 INTEGER X15 01240450 
@ x2 ¢ B3 01240460 | @ 
: caee eee eee ee co A SN a a OU ONTO i 5 ged tlc ee en 36 
END 01240480 37 
@ F ENDS 01240490 . a ® 
Bt Lat L16$ TEMPL O19 04240500 2s 
BEGIN 04240510 40 
] LABEL LAsL8eLCi 01240520 «|@ 
STC Sh | Lab Beh Cob d7s U5 4 
Yl «23 GO TO SW4tYij3 01240540 4 
rd LAs’  TEMPC10) «© O $ GO TO LCs 01240550 a @ 
eB UT EMPELO) © 4058 _ 01240560 = is 
LC’ GO TO SW4t4)] ENDS 01240570 ‘ 
8 Li7% TEMPL11] © 143 01240580 F 
FILL ANS(*) WITH OCTi» OCT2s OCT3» UCTa»r UCTS» GCT6s UCT?» 01240590, 
OCT10» OcTii» ocTi2*OCT1I3s 01240600 4s 
@ “CVN #113 . 04240610 1@ 
PNO « 1243 01240620 3 
VERIFY 01240630 5 
@} ENDS 01240640 51 @ 
: PROCEDURE P1253 COMMENT Selie3e2@ PROCEOURE BOOY VARIATIONSS 01250000 : 
BEGIN 04250010 55 
@- LABEL LisL23 01250020 . iT ) 
ey INTEGER Ie JSBOULEAN 83 01250030 | : 5 
e e @ 
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eo; @ 
l ¢ 634123 Be TRUES 01250040 
e COMMENT ASSIGNMENT STATEMENTS 01250050 e 
TEMPE © 3 TEMPECOJO TEMPLE Je TEMPCojeL C45shgs 6[6[6U™U™CUCUCUCUCUULUUULUCTCCC CO 0NGO 
TEMPL31.£4642]¢73 01250070 
e BEGIN 01250080 
___sCINTEGER PROCEDURE ARITH C1)3 nit a eee eo es OPM OOU GOS aoe el 
INTEGER I3 01250100 
@ BEGIN 01250410 
TEMPE) © C146) eC +e/ (195) 3 ARITH © TEMPC4) ENDS OF250120 2 
PROCEDURE BOOL (B)3 01250130 
@ BOOLEAN B3 01250140 
i Eat Saas Nao ns es tn 0s ie i aes sh ee 
TEMPE5) * REALCB) ENus 01250160 
Yo PROCEDURE GQOTO3 01250170 
BEGIN LABEL L423 GO TO Lis Lit TEMPE 7Je4 ENDS ie AEE A ODA Ont beth gets ttt lta ot oe Searin i nt oe ooh Meer 
3 PROCEDURE DUMMYSKEGIN ENDS 01250190 
@ PROCEDURE CALLCI)3 INTEGER Is BEGIN TEMPL6) © 1 + ARITHCI) €NDS01250200 
i ALL CS BOP CR) GoTOs DUMMYS Ste oy iat ed a Se de OY DSO GIO. 2 Oy pend eet 
18 ENOs 01250220 
ev FILL ANSC#) WITH OCTL» OCT1* OCT3» OCTid» QCTi» ocT13* ocT4s 01250230 
he ie Boat _CVN¢ ZS_PNO©V253 VERDE Ye NAH Smee tee Sea 
he ENDS 01250250 
@ PROCEDURE P1263 COMMENT Sellede2 RECURSIVE PROCEDURES. CCZ» 11/28/6253 01260000 
Tc Desi GT Ne STNG (Be ac a or OO Oo et 
2 REAL PROCEDURE FACTORIAL (N)$ VALUE Ni. INTEGER NG 04260020 
@ BEGIN FACTORIAL ¢ JF N = O THEN 1 ELSE Nx FACTORTALCN*1) END} 01260030 
FOR [© 1 STEP 4 UNTIL 10 DO TEMPLI) « FACTORIALCIDS cove ME260080) 9 
FILL ANS C#) WITH OCT1» OCTe» OCT és OCT30» GCT170» OCT13205 04200050 
@ OCT11660» OCT116600, OCT1304600, OCT156574003 01260060 
7 Siecle et Yas ie So eo agar gt ec, aed a cies soe OOF Oreck eon cise es 
2 PNO « 1263 04260080 
& VERIFY 01260090 
ie sh ce NDR Nene Se aa ee ee ee ee OOO te eG oee, 
op PROCEDURE PI27) COWNENT Selle TYPED PROCEDURES» Cy ZETHRAEUSs 11729) 01270000 
i BEGIN 01270010 
jo tt——sCsiCi‘(‘(N REAL PROCEDURE RPCI)$ COMMENT RPs G3 AOL ST O02 nd Sole ay pneu bees 
al INTEGER T? 0142/0030 
@ BEGIN 01270040 
Pe ad ae a Se tt ee ee IEA Rio Vie 2 oe BO OR AN BS eo 8 ee 8 ee OO 
ig TeITei3 BeBOOLEANCI.C4421))3 IF NOT B THEN ZeRPCIL)41;3 01270060 
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